JUNE/JULY 1984 
ORIC’S INVENTOR INTERVIEWED 
SOFTWARE —- PLAY THE SLOTS ON ORIC 
SOUND COMMANDS MADE SIMPLE 
MICRODRIVES ON TEST 


CW 


CON, 


A 


JUNE/JULY 1984 — ISSUE 8 


COMMENT Page 4 
What's in store for the future will keep us busy 
NEWS Page 5 


Plenty has been happening in the Oric world 


REPRE TY Ue Ae ig 


BOOK REVIEWS Page 7 
Eight titles to add to your library 
SOFTWARE SCAN Page 9 


New games and utilities programs that we've been 
putting through their paces 


INTERVIEW Page 13 
We talk to Dr Paul Johnson, the chief designer of the 
Oric-1 and Atmos computers 


SOFTWARE LISTINGS Page 15 
Seven programs — educational, arcade style, adventure, 
traditional — something for every Oric owner 
ARITHMETIC INVADERS 

YAHTZEE 

TAPE STORE 

STAR CRUISER 

SLOT MACHINE 

PUSS IN BOOTS 

MUSIC TUTOR 


MICRODRIVE REVIEW Page 55 
We get our hands on the long awaited Oric Microdrive. 
It is a classy piece of equipment 


COMPETITION Page 57 
Win a free upgrade for your 48K Oric-] 


MUSIC SPECIAL 
All you need to know about the sound commands on 
your Oric, including Machine Code routines 


QUICKIES Page 62 
A collection of shorter programs for you to try 


HINTS AND TIPS Page 66 
Other Oric owners lend you their assistance 

DEAR ORIC OWNER Page 69 
What you've been saying to us recently 

DISASTER AREA Page 70 


Not many corrections this time 


Cover illustration by Malcolm Ryan 
Oric Owner 3 


Ore Ouvner 


Editor: Kester Cranswick 

Assistant Editor: Carolyn Groeneveld 
Publisher: Paul B. Kaufman 

Printers: Heffers Printers Ltd. 

King's Hedges Road Cambridge 


Oric Owner is published at bi-monthly 
intervals by 

Tansoft Ltd, 

Units 1 & 2, 

Cambridge Techno Park, 
Newmarket Road 

Cambridge 

Tel: 02208 2261 

Reg. No. 1632070 

ISSN 0265-8488 

Subscriptions: £7.50 for six issues (UK 
only). Overseas rates on request 
Backnumbers: £1.20 (3 and 4 only) 

© Tansoft Ltd. 


4 Orc Owner 


hew/! It's been hectic since my 
last Comment. We've had 50 
new subscribers to add to the 
mailing list every week. 
We've had the new Microdisc to try 
out, and I've been getting to grips 
with the Atmos. It is a real 
improvement over my Oric-1, and I'm 
sure that, with all the TV advertising, 
it will be a big success. If you already 
have an Oric-1, be sure to enter our 
competition — you might win a free 
upgrade. 

The upgrade was one piece of 
good news, though it isn't exactly 
cheap. If you use your Oric-] for 
either word processing or file 


.| management, an upgrade will really 


help. 

The new Microdisc units are 
already working for Oric Owner. 
They are storing records of Oric and 
Atmos software, distributors and other 
such information. We are using the 
Author word processor package and 
an MCP-40 printer to generate copy 
too — the office is largely electronic. 

As well as all that, I managed to 
catch up with Dr Paul Johnson. Some 
of his comments have been 
pre-empted by recent news, but I 


came away with the impression that 
he has plenty more ideas up his 
sleeve. 

Their new Sales and Marketing 
Director, Terry Shurwood, has some 
exciting plans too. If you visit this 
month's Personal Computer World 
show at Earl’s Court, in London, ‘you'll 
be able to join the Oric Club. It is 
being launched there and, whilst I 
can't divulge too much, it is safe to say 
that you'll be able to recoup your 
membership fee very quickly if you 
take advantage of special, 
member-only offers. 

By that time, you should be able to 
program a fanfare on your Oric. In 
response to many requests, we have a 
major feature on the sometimes 
confusing sound commands of the 
Oric. They aren't that difficult if 
tackled methodically and they are 
certainly able to produce a huge 
variety of sounds. You didn’t know you 
had an Oric synthesiser, did you? 

The programs this issue should 
provide something for everyone. Puss 
in Boots is a lighthearted adventure, 
while arcade fans can have a crack at 
Star Cruiser. The slot machine harks 
back to more traditional arcade 
games, and gives a winning chance 
too. Tape Store is a genuinely useful 
utility for indexing music collections. It 
saves data to tape too. Finally, 
Arithmetic Invaders tests maths skills 
and entertains at the same time. If you 
have any better programs -— let's see 
them. 

Next issue will be the last 
bi-monthly Oric Owner. The October 
issue, available in September, will be 
a monthly magazine. It will also be 
available through all good 
newsagents — so if you aren'ta 
subscriber, place an order. 

So, with a monthly magazine to 
launch, Oric Club to organize, 
software to review, your programs to 
try out and all the computer shows 
to attend, your's truly is likely to be 
breathless for a while longer. 


Kester Cranswick 
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ORIC GOES TO HARRODS 


Harrods boast that you can 
buy anything in their giant 
London store. Now you can 
buy Oric products. 

A recent sales agreement 
means that stocks of the 
Atmos are now available 


through Harrods. Part of the 
reason for the decision to 
stock the Atmos was its RGB 
socket. This feature has 
proven very popular with 
overseas customers in the 
computer department. 


ATMOS SOFTWARE 


EXPANDS 


Good news for Atmos owners 
is that the software available 
for the machine continues to 
increase. At last count, 23 
software manufacturers were 
making Atmos compatible 
software. 

In addition, some 
companies are running a 
software exchange scheme. 
Tansoft are currently 
exchanging any Oric-1 
software for the Atmos 
equivalent at a cost of £3.00. 

Major software houses to 
convert to Atmos software 
include Arcadia, Durell, IJK, 
PSS, Salamander, Softek, 
Severn, Tansoft and Virgin. 

Different software 
companies have adopted 
different approaches to the 
conversion. IJK Software Ltd 
were told about the new ROM 
last year and all their games 
since September, 1983 have 
been suitable for both ROMs. 
Managing Director Ian 
Sinclair explained that IJK 
used its own operating system 


in the RAM and any calls 
were made to that. If there 
were any Machine Code calls 
that caused problems, an 
either... or routine was used. 
“As Oric gave us plenty of 
warning about the new ROM, 
we haven't had any major 
problems’, he said. IJK would 
exchange any old Onic-1 
software outdated by an 
upgrade for the £1 handling 
fee. 

Tansoft have had to rewrite 
some oftheir programs (Forth, 
Oric-Mon, Oric Munch for 
example) so there are both 
Oric-1 and Atmos versions 
available. Some of their 
software will run on both 
machines though. 

So, if you are an Atmos 
owner, rest assured that most 
of the software offered to you 
will be suitable. If in doubt, 
check with the dealer or 
supplier, or if buying mail 
order, say that you own an 
Atmos. You shouldn't have 
any problems. 


MADE IN BRITAIN 


New agreements by Oric 
Products International mean 
that more of their 
manufacturing is concentrated 
in the United Kingdom. 

Oric have entered a joint 
venture with Kenure Plastics 
Ltd. to manufacture Printed 
Circuit Boards (PCBs), 
microcomputers and other 
electronic systems. The joint 
company is called M3 and is 
operating from a 20,000 
square foot factory on the 
Hampton Farm Industrial 
Estate, at the London end of 
the M3. 

The first product to be 
made there is the Atmos, and 
the latest auto testing and 
assembly techniques are 
being used in the making of 
this machine. 10,000 units a 


month are planned. 

Onc have also signed a 
PCB manufacturing 
agreement with the Welsh 
firm. A+A. This company 1s 
now making some of the 
Atmos PCBs. 

Orics now have three 
sources for their Central 
Processing Units (CPUs), and 
more than a dozen other 
component suppliers in 
addition to the main supplier, 
Inmos. Oric are thus 
safeguarding themselves 
against any problems that 
may arise in one section of a 
very volatile industry. The 
new production facilities also 
mean that the cost of 
manufacture is on a par with 
that of Eastern manufacturers, 
keeping costs down. 


MICRODISCS ARRIVE 


Announced over a year ago, 
the long awaited Oric Micro- 
discs have finally arrived. 

In fact, there is an order form 
included in this issue of Oric 
Owner. The price, per unit, is 
£299. 

Finished in Atmos colours, 
the sleek looking disc drives 
use the new 3” discs. Each 
disc holds 160K of memory on 
each side, transferred at the 
rate of 250K bits per second. 
There are 40 tracks, each 
with 16 sectors of 256 bytes. 
This will handle up to 640 files 
per side. 

The Disc Operating System 


supports thirteen commands. 
A whole disc can be copied, 
or just a file. Files can be 
deleted, a directory of files 
displayed.... see our review 
for full details. 

The Microdisc units are 
compatible with the Oric-1 as 
well as the Atmos. It is also 
possible to run up to four units 
together for collossal memory 
storage. At a later date, Onc 
plan an 80 track option too, 
doubling the capacity of the 
discs. 

Supplies of the new drives 
aren't huge, so place orders 
promptly. 
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ATMOS UPGRADE 


ANNOUNCED 


After months of speculation, 
Onic Products International 
Ltd. have unveiled plans for 
upgrading of existing 48K 
Oric-| computers. The 
upgrade is to cost £60. 

16K Oric-1 owners will also 
be able to upgrade to a 16K 
Atmos for the same amount, 
but not to 48K Atmos 
specifications. 

For that price, the upgrade 
is comprehensive. The old 
Oric-] machine will have the 
new ROM installed, the new 
typewriter style keyboard, the 
black and red casing of the 
Atmos and comes with both 
an Atmos manual and a full 
twelve month guarantee. It 
will, to all intents and 
purposes, be an Atmos 
computer. 

To get your upgrade, send 
your Oric-1, with no cords or 
power supplies, but securely 
packed to Onc Manufacturing 


Unit 11, Hampton Farm 
Industrial Estate, Hampton 
Road, Hanworth, Middx. The 
turnaround time is expected 
to be 28 days, though that 
depends on how much 
demand there is for the 
service. 

The new ROM chips have 
been obtained in addition to 
those required to meet 
production targets for the 
Oric Atmos, so the upgrade 
does not mean less Atmos 
models will be made. 

Oric have also put paid to 
the rumour ihat they were 
planning to recall some Atmos 
machines to replace the 
ROM. The story arose from an 
article in a weekly computer 
magazine, in which the new 
and old ROMS were 
confused. There have been 
no reported problems with 
the Atmos or upgraded Oric-1 
computers. 


Programs on disc 


Tansoft have announced that a 
number of their utility and 
business programs are to be 
converted to disc. The 
programs are Author, Oric 
Base, Oric Calc and Forth. 
Prices for disc programs have 


yet to be decided. 

Tansoft are also planning to 
supply blank discs and a 
head cleaner for the 
Microdrive unit. Check with 
them for prices and 
availability: 


XENON-3? 


JK are planning the release 
of the third in the Xenon 
tnlogy. Due shortly, it is 
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called ‘The Final Conflict’. It is 
the follow-up to Zorgon's 
Revenge, itself the sequel to 
Xenon-1. So, all you alien 
zappers, start saving for The 
Final Conflict. 


MCP ADD 
ADD-ONS 


Swansea-based Modular 
Concept Peripherals have 
launched a number of new 
accessories for Oric 
computers. They include a 
programmable joystick 
interface and an RS232-C 
interface that allows a modem 
to be used with an Oric. 

The joystick interface 
connects to the expansion 
port, using a different system 
to that of the PASE interface. 
The MCP system does not 
interfere with sound. There 
are ports for two joysticks, 
and they could be used as 
general purpose I:O ports. 
MCP have circularized 
leading software houses and 
are hoping that software will 
be produced to take 
advantage of the new 
interface. The unit costs 
£23.70. 

At £38.50, the RS232-C 
interface unit comes with 
Prestel software. It can be 
connected to a Telemod 
modem and then gives the 
Oric owner access to Prestel. 

The third accessory from 
MCP is an RS232-C switch. 
This allows the switching of 
two peripherals, such as a 
modem and a printer. The 
switch costs £37.00. 


Bunelord 


ORIC-1 


WARRIOR SOFTWARE 


MCP have also released an 
adventure game. Runelord 
employs a novel concept. A 
character generator is used to 


————— 


create a character. That 
character is then played 
through an adventure. The 
Runelord Masterpack consists 
of the character generator 
and a scenario, The Pits of 
Doom. MCP plan an initial set 
of ten modules for the 
adventurer. 
The games use both text 
and graphics. MCP plan to 
introduce games that take 
advantage of their speech 
synthesiser. The initial Master 
Pack of Character Generator 
Module and The Pits of Doom 
scenario is available for the 
Oric-1 at a price of £7.50. 


SPORTING 
ATMOS 


A leading sports agency has 
chosen the Atmos computer 
as the heart of a computerised 
data system being established 
in the United States. All Sports 
International are also planning 
to use the Atmos to access 
mainframes in selected hotels 
to provide a Prestel-type 
magazine. 

All Sport have been 
providing sport-related data 
for over a decade. The cost 
and inconvenience of 
conventional storage media 
has led them to adopt 
computerised data 
bases — from Oric. 

All Sport are using their 
American links to make their 
data banks more accessible. 
Companies like the Reporter 
Publishing Company, who 
produce over 60 newspapers, 
will be supplied with stocks of 
Atmos computers. The data 
they need access to will be 
stored on tape, for instant use 
by the reporter. 

There are also plans to 
provide hotel magazines, 
using a modified Atmos to 
access the system. The Atmos 
will be able to download 
pages of information, games 
and so forth from a central 
mainframe. The attraction is 
that the system is easier to 
update and cheaper than 
printing a magazine. One 
large chain near Disneyworld 
is apparently very interested. 


An Introduction 
to Programming 
the ORIC-1 


R. A. & J. W. Penfold 
Bernard Babani Ltd. 
92pp £1.95 


Here's a handy, inexpensive 
companion to the Oric-1 
manual that is well worth its 
modest price. It is also 
extremely valuable to the 
owner with a little electronics 
expertise who wants to 
interface the Oric-1 with 
various peripherals. 

Though not a flash, 
expensive volume, it is well 
organized. It assumes the 
reader has struggled through 
the manual, so doesn't cover 
too much ground that the 
manual has thoroughly dealt 
with. Resumés of main points 
are frequent, and they are 
logical, concise and useful 
refreshers. 

The reader will pick up 
many useful tips, particularly 
in the chapters on sound and 
attributes. Program listings 
are kept to a minimum, with 
just two lengthy listings. One 
of these is a simple game, the 
other a useful telephone 
directory, complete with 
array saver. 

A chapter on interfacing 
contains all you'll need to 
know to connect your Oric to 
the outside world, though it is 
written for the DIY enthusiast. 
If that is your field, this book 
is a must. 

For the Oric owner after 
some sound information on 
areas the manual skimps on, 
this book is a gem. 


Ian Stewart/Robin Jones 
Shiva Publishing Ltd 
164pp £5.95 


Books to complement or 
replace the Oric manual are 
legion. This is one of the 
better ones if you are new to 
computing, and have 
struggled through the manual. 

The style is chatty, witty 
and very entertaining. The 
authors have tried to inject a 
sense of fun into the 
proceedings. 

Projects feature heavily in 
this book. They encourage 
you to experiment and make 
sure you have absorbed the 
lessons, 

The ground is covered 


pretty thoroughly, though 


chapters you'll be able to 
merely skim through. The 
strongest chapters are a 
series on debugging, the 
music section and details of 
attributes. 

Other books may cover 
certain areas more throughly, 
but this volume gives a good 
grounding and encourages 
you to try things for yourself. 

The more esoteric aspects 
of the Oric (Machine Code, 
Boolean algebra. and so forth) 
are left well alone. There is 
also no mention of the new 
ROM, and bugged commands 
are carefully avoided. 

So, although other books 
may have more information to 
impart, this one is very ‘user 
friendly’. As such, it will 
appeal to many users, and at 
£5.95, is not over priced. 


Peter Lupton & Frazer 
Robinson 

Century Communications 
250pp £5.95 


Designed to complement 
the Oric-] manual, and with 
full details of the new ROM, it 
is an informative, readable 
work. 

It starts with setting up the 
Oric and then deals with most 
areas of its operation. 
Depending on your expertise, 
you may be able to skim 
through some of the earlier 
chapters, though there are 
more than a few useful hints. 

Each chapter features short 
demonstration programs and 
a convenient summary at the 
end. The large type size is 
also an asset too. 

Most books are better in 
some areas than others. In the 
case of The Oric Handbook, 
graphics is the strength. The 
authors deal with TEXT, 
LORES and HIRES display 
modes in more depth than 
most other books put 
together. LORES, in parti- 
cular, is a subject often over- 
looked. 

Other worthwhile chapters 
deal with Boolean logic, the 
new ROM and there is a 
helpful appendix with advice 
on how to speed up 
programs. 

The book contains several 
complete program listings. 
They are for a drawing aid, a 
synthesiser, a Mastermind 
type game and a simple line 
renumber. 


S. M. Gee/Mike James 
Granada Publishing 
16lpp £6.95 


Everyone, it Seems, wants to 
teach you how to use your 
Oric. This recent volume 1s 
yet another book designed to 
supplement and augment the 
Oric-1 manual. 

It is considerably better 
than the manual, though that's 
not hard, and covers most of 
the Oric commands pretty 
thoroughly. Indeed, even if 
you are an experienced user, 
their are more than a few tips 
to be garnered from The Oric 
Programmer 

There are no particular 
areas in which this volume 
shines. The authors have 


THE 
PRO) 


IC : 
AMMER 


adopted a logical, practical 
approach to programming, 
and given plenty of examples 
to work on. Much of the 
maternal can be skimmed 
through if you are already 
familiar with certain aspects 
of Oric's BASIC. 

The final few chapters get 
to grips with Boolean logic, 
PEEK, POKE, POP, PULL and 
other more esoteric 
commands. There is also a 
useful appendix that details 
the bugs of the VI.0 ROM, and 
how to cure them. 

There is no mention of the 
new ROM, the Atmos, the 
printer unit or the disc drives. 
At £6.95, this isn't a book we 
would wholeheartedly 
recommend. It 1s good, and 
widely available, but we have 
seen better books for the 
novice Oric owner. 
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“EXPLORING 
ADVENTURES 


on the ORIC 48K 


Exploring Adventures on the 
Oric 48K 

Peter Gerrard 

Gerald Duckworth & Co. 
238pp £6.95 


Peter Gerrard is perhaps 
better known for his writings 
on the Commodore 
computers. This book is an 
Oric-ified version of an almost 
identical book for the 
Commodore. 

It's alm is to teach the 
reader all about adventure 
games. There is an 
introduction to the genre, a 
survey of the sort of games 
available, hints on how to 
master games and some ideas 
for your own adventures. 
However, the bulk of the book 
is given over to writing your 
own programs and the listing 
of three fairly lengthy games. 
A cassette is available. 

The author is firmly against 
graphics in adventure games. 
That side of things is up to 
you. However, he does give a 
very good guide to the 
techniques of writing an 
adventure program, and does 
explain how the facilities of an 
Oric can best be used. 

The approach is to 
introduce broad concepts 
first, and then to tackle 
different routines in the main 
game, Underground 
Adventure. That game 
employs most of the tricks, 
and studying it will give youa 
good grounding in adventure 
game programming. 

8 Orc Owner 


On Ihe 


The Computer & Video 
Games Book of Adventure 
Keith Campbell 
Melbourne House 

138pp £5.95 


A foreword by Scott Adams, 
the adventure games maestro, 
establishes the credentials of 
this volume. It is a guide to 
writing your own adventures, 
and includes a listing of a 
simple adventure. 

The author starts with a 
general introduction to the 
world of adventure games 
and moves onto a review ofa 
number of selected games. 
The Hobbit and Franklin's 
Tomb warrant a mention 
here. 

The rest of the book is 


THE COMPUTER & VIDEO GAMES = 
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BOOK OF 
ADVENTURE 


by KEITH CAMPBELL 
With ii 5 tor: 
SPECTRU! 


|, COMMODORE 64 
and B8C 


Fowword by Scott Adams 


concerned with how to write 
an adventure game — the one 
listed in the book. By studying 
that game and the techniques 
used to write it, you should 
gain a pretty fair grounding in 
the art of adventure game 
programming. 

If you are already able to 
program an adventure, there 
is little to be gleaned from 
this book. It is not orientated 
towards the Oric specifically, 
but as the Oric's BASIC follow 
standard BASIC practices, the 
information is valid. 

The various chapters deal 
with locations, objects, 
movements, actions, screen 
displays and so on. Examples 
are taken from the listed 
program. It takes little thought 
to grasp the principles behind 
the sections. 


nah 


GAMES TO PLAY @) 
Of YOUR ORIC-1 


Czes Kosniowsti 


Games to Play on Your 
Oric-1 

Czes Kosniowski 
Shiva Publishing Ltd. 
128pp £4.95 


As so few magazines seem to 
publish programs for the Oric 
(Oric Owner excepted of 
course), books like this have a 
ready market. This slim 
volume is a pretty fair effort. 

None of the games are 
ternbly sophisticated. That 
makes them reasonably short 
and they could always be 
improved on, to give better 
displays. 

There are 30 listings in all. 
Some old favourites are 
there — Mastermind, 
Hangman, Breakout, several 
versions of Centipede, Lunar 
Lander and so on. There are 
also four musical programs 
and five graphics 
demonstrations. 

The rest of the games are 
largely puzzles of one sort or 
another, a smattering of two 
player games and a few other 
games. It is the sort of 
collection likely to appeal to 
more mature owneIrs. 

All listings are claimed to 
be, and appear to be, bug 
free. That is creditable. Each 
game also has a simple 
screen display shown, a brief 
description and some 
program notes. No GOTOs 
are used — a feature the 
author is very proud of! 

At £4.95, this book is 
certainly affordable. If you 
like puzzles, it's worth buying. 


00kSHEIE 


30 Hour Basic —- Oric edition 
Clive Prigmore/Paul 
Shreeve 

National Extension College 
268pp £6.95 


30 Hour Basic is a textbook 
introduction to BASIC 
programming techniques. It 
has been around in a general, 
BBC orientated version for 
some time. This is the Oric 
edition. 

It is not a book that teaches 
you how to use your Oric. 
Rather, its sets out to explain 
the concepts behind 
programming. There are 
frequent questions and 
assignments to be tackled. 
The book is designed as the 
core of an NEC course. 

The book is little changed 


from the non-Oric version. 
The chapter on file handling 
has gone, to be replaced by a 
section on Oric's sound and 
graphics commands. All 
listings have been altered 
where necessary too. 

The areas covered include 
loops, strings, arrays, program 
structure, random numbers, 
screen outputs and so forth. 
Some commands, such as 
TAB are assumed to 
work — an annoying thing for 
Oric-1 owners. 

Anyone who perseveres 
with this book will end up 
with a much better 
knowledge of programming. 
There is obviously more to be 
said about some of the Oric's 
features, but if you have ever 
wandered just where to start 
with BASIC programming, this 
is the book for you. 


Defence Force 
Tansoft 

Oric 48K 

£7.95 


Zap ‘em games don't come 
much more sophisticated than 
Defence Force. With 16 types 
of aliens, 20 waves of 
attackers and fast, furious 
action, this game will keep 
your trigger finger busy for a 
long, long time. 

The well-packaged 
program takes six minutes to 
load at the fast speed — a long 
time. The main instructions 
are given, plus a display of 
the aliens, a hall of fame and 
the options. The beginners 
game is low scoring but 
welcome if you are new to 
this type of game. 

Your aim is to dispose of 
various attackers, while 
safeguarding your men. You 
have four lives and a number 
of shields to ward off attacks. 

If all your men are lost, you 
move to an Astral plane, 
where survival is almost 
impossible. Perhaps that’s 
why there is a suicide key! 

At the top of the screen is 
your score and a map of the 
surrounding area, sO you can 
see what's coming. 

Graphics and sound are 
excellent, and if you like 
space shootouts, Defence 
Force is a must. 


Originality kk 
Sound Kk 
Graphics kkk 
Addictiveness kkk 
Value kk 


ORICAID 
TOOLKIT, MONITOR & ASSEMBLER 
from 
ICROGRAF 


ee 


AUTHOR: DESMOND BANDOO 
FOR THE ORIC-1 (48K 
WITH V1 00r V1.1 ROM 


AND ORIC ATMOS 


Oricaid 
Micrograf 
Oric/Atmos 48K 
£11.95 


This comprehensive package 
contains a BASIC toolbox, a 
Machine Code monitor and a 
Machine Code assembler. 

There are fast and slow 
recordings of the Machine 
Coded program for both V1.0 
and V1.1 ROMs. 

The toolkit has eleven 
commands for the Oric-1, nine 
for the Atmos (Verify and 
Append are part of the Atmos’ 
BASIC commands). There are 
block line delete, renew, 
automatic line number, line 
renumber, append and verify 
routines. 

Other commands are a 
protective device — to prevent 
LISTing of your work, a FIND 
command to list any line that 
has a particular command in 
it, and a shrink command that 
removes all unnecessary 
REMs and spaces. 

The monitor gives 
Hex/Decimal conversion, 
searches for particular byte 
sequences, RUNs Machine 
Code routines, relocates or 
transfers blocks of memory, 
displays register values or 
memory contents. 

The assembler lets you 
enter Machine Code as a 
BASIC program of 
Mnemonics and addresses. 


Facilities kkk kk 
Instructions kkk 
Ease of Use kk kk 
Value kkk 
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ARCADE ACTION for ORI 1/ATMOS 

M.A.R.C. 

PSS 

Oric/Atmos 48K 

£6.95 

M.A.R.C. stands for Moonbase 
Alpha Recovery Craft. That's 
what you control in this 
arcade game, and it is your 
mission to safeguard five 
cities on the moon. 

Trying to thwart you are 
squadrons of bombers out to 
destroy cities. If they destroy 
one, the two scientists it 
contains flee. You have to 
pick them up before they are 
snatched up by other jumping 
men. While all this is going 
on, you also have to avoid 
heat seeking bugs after you, 
and save enough energy to 
keep your craft flying. 

It sounds complicated, 
and at first itis. You have no 
fewer than seven ship control 
keys. They control left and 
right motion, movement ‘in’ 
and ‘out' of the screen (the 
game has a simulated 3D 
display), firing, ladder 
lowering and up. There is 
also a key to halt the game 
and another to restart it. You'll 
need nimble fingers and 
plenty of practice to master 
M.A.R.C. 

The graphics are excellent, 
considering the number of 
elements in the game. Sound 
can be set to any of ten levels 
and control keys redefined. 


Originality KKK 
Sound kkk 
Graphics kkk 
Addictiveness kkk 
Value kkk 


Tevrog’s Kingdom 
Cable Software 
Oric 48K 

£9.99 


This text-only adventure 
game comes with a second 
game, a Wumpus derivative 
called Quest For Power. 

Star of the show is Tevrog's 
Kingdom. It is a BASIC 
program with the usual 
adventure locations of caves, 
a palace, outlands and so 
forth. The game is played ina 
real time framework and 
objects are placed randomly 
at the start of every game. 

Loading takes a few 
minutes at the fast speed. The 
instructions are very minimal, 
and if you are unaccustomed 
to adventure games, you'll 
find communication very 
frustrating. 

The game text is kept 
simple and commands are 
acted on quite quickly, apart 
from the odd garbage 
collection pause. There is 
nothing radical about 
Tevrog's Kingdom, and the 
only reason to play it is to 
solve it. 

Quest for Power is played 
in a grid of rooms containing 
weapons, charms or monsters. 
It is more amusing than the 
longer game, and has some 
loud sound effects. Use a pen 
and paper for a guaranteed 
solution, play from memory if 
you enjoy being killed. 


Originality * 
Graphics N/A 
Sound * 
Addictiveness kk 
Value kk 
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Loki 

Joe the Lion 

Oric 48K 

£6.45 

This game is a space shootout 
type, despite the Nordic 
name. The only mythological 
connections are that the 
enemy attackers have the 
names of Norse gods. 

The aim is to destroy 
successive waves of attackers. 
Each ‘universe’ has eight 
waves. The first three take 
place at ground level. 

After the third wave, you 
move to a starfield, where all 
four movement controls are 
needed. There are five waves 
to overcome here, before 
getting back to a harder 
ground level. 

The changes of waves are 
marked by different sound 
effects. This game makes the 
most of the Oric’s sound 
potential. The waves don't fire 
back, so getting through them 
is really a matter of just 
keeping the fire button 
pressed. You have five lives. 

A running score, high 
score, number of lives, 
universe number and wave 
number are shown at the 
base of the screen — if you 
have the chance to look that 
far. Loki proceeds at a 


giddying pace. 

Originality kkk 
Sound kkk 
Graphics kkk 
Addictiveness kk 
Value kkk 
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Dormere Software Presents 


Orical Invaders 
Dormere Software 

Oric 16/48K 

£5.95 

With the opening strains of 
the aliens theme from ‘Close 
Encounters’, you're launched 
into another Space Invaders 
game. It will fit the memory of 
a 16K Oric-1 and that is good 
news for 16K owners. 

The controls are simple, 
with the handy provision of 
two keys for both sideways 
movements. The space and 
return bars fire. Other useful 
controls are A for abort, Q for 
return to BASIC, F for pause 
and § for restart. More games 
should have these features. 

Apart from this, the game is 
standard Invaders fare. There 
are four types of invaders, 
four bases and an extra base 
at 2000 points. You have three 
lives. There is a Hall of Fame 
too. 

Volume is fixed and not too 
loud. The graphics are quite 
good, but break no new 
ground. Each wave has five 
rows of eleven aliens. 

As Invaders games go, this 
is a fair effort. The fact that it 
is 16K is an asset, and there 
may well be Oric owners who 
want to have a crack at an 
arcade classic. This Dormere 
version is perfectly adequate 
for that. 


Originality * 
Sound kk 
Graphics kk 
Addictiveness kkk 
Value kk 
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Island of Death 
Ocean Software 
Oric 48K 

£6.90 


Ocean have come up witha 
novel way to pack plenty of 
relatively simple games onto 
one cassette. The idea is that 
you arrive on an island, and 
survive by playing the games. 

The opening sequence is 
musical and visually clever. 
Throughout the game various 
tunes play rather loudly. 

The games are things like 
Frogger, obstacle courses, 
fishirig situations, Light Bike 
and so on. The graphics are 
varied and some are quite 
amusing. When you finish one 
game, you are offered a 
choice of directions, as you 
might be in an adventure 
game, and that sends you to 
the next challenge. 

The only annoying thing 
about this game is that if you 
don't keep a track of your 
movements, you may end up 
playing the same game over 
and over again. 

Given this proviso, Island of 
Death is an interesting 
package, particularly if you 
like your games with a little 
humour, plenty of variety and 
a reasonable chance of 
SUCCESS. 


Originality kkk 
Sound Kk 
Graphics kkk 
Addictiveness kk 
Value kk 
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Pasta Blasta 
Arcadia 
Oric 48K 
£5.50 

Those Arcadia people must 
have some very strange 
dreams. Pasta Blasta is one of 
the most original games so far 
released for the Oric. 

You control the Pasta 
Blasta, and your task is to 
safeguard six tins of ravioli. 
Bloblike Pasta Pinchas are 
trying to steal them, while Pac 
Persons are after you. 

You can rotate and move or 
fire in the direction you are 
pointing. By gobbling up 
Pasta Power Pills, you 
replenish energy, and Pasta 
Prizes give bonus points. 

PASE compatible joysticks 
can be used and will certainly 
improve your game. The 
possible movements take a 
little getting used to and it will 
be some time before you 
master Pasta Blasta. 

The sound level can be 
vanied from off to loud, and 
the sounds are very cute. In 
fact, the whole game has a 
cuteness about it that appeals 
to less warlike natures. 

There is a hall of fame, an 
excellent set of on-screen 
instructions and a two player 
option. If you like slightly off 
beat arcade games, Pasta 
Blasta belongs in your library. 


Originality tok 
Sound kkk 
Graphics kak 
Addictiveness kkk 
Value kk kk 


‘SECTOR 7 SOFTWARE 


) WALA LAL 
ORIG GEK 


Starship 

Sector 7 Software 

Oric 48K 

£6.50 

Every self respecting 
software company should 
have its own version of Space 
Invaders — shouldn't it? Well, if 
you still haven't mastered the 
game, here is Sector 7's 
offering. 

The loading sequence is 
embellished by an excellent 
HIRES display of the 
combatants. 

After that, it is the old 
pattern, though with rather 
better spaceships than usual. 
You have three lives to wipe 
out waves of invaders. There 
are nine types of aliens that 
come in waves of 56. You can 
move left and right with the 
cursor control keys, fire with 
the space bar. There are no 
bases to shelter behind 
though — a difference from the 
classic Invaders. 

The sound level can't be 
varied or turned off and the 
sounds are not very 
adventurous. The controls 
give a slow-ish response 
too — that's the penalty for all 
those pretty drawings. 

The graphics are certainly 
the best feature of this game. 
If you fancy a crack at an 
Invaders game that doesn't 
quite copy all the others, this 
one is worth considering. 


m gnth 
TansorT 


Author 

Tansoft 

Oric/Atmos 48K 

£14.50 

Author is a sophisticated word 
processing package for Oric 
computers. 

The facilities are 
comprehensive. The Edit 
function allows deletion of 
characters, words, sentences 
or paragraphs. You can 
recover deleted material, 
insert new text, overwrite, 
move blocks of text, mark a 
place for text to be inserted at 
a later date, find and change 
words or phrases, get a word 
count — there are all the 
facilities you are likely to 
need. 

The printer commands 
allow you to control any 
printer. There are preset 
parameters for the MCP-40 
and an 80 column printer. By 
altering the printer 
installation, you can change 
column widths, pen colours, 
print more than one copy, 
centre text - and much more. 

The instructions will have 
you using the main functions 
of Author with no problems at 
all. 

It certainly has more 
commands than you are ever 
likely to need. It will hold 
over 28,000 characters, so is 
fine for the business or home 
user. Unless you are a 
professional novelist, Author 
will do an excellent job. 


Originality k* 

Sound * 4 Facilities kokkk 
Graphics *%** Instructions kkk 
Addictiveness *k*kx* ~~ Ease of use kkk 
Value *kx* = Value xk 
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Invaders 
Arcadia 
Oric 48K 
£5.50 


This is a standard version of 
the classic Space Invaders 
game from an established 
software house. It has few 
embellishments but is good 
fun and well executed. 

The packaging is colourful 
and cheerful. The program is 
recorded at fast and slow 
speeds. 

The controls are three of 
the cursor keys for left, right 
and fire. There are no options 
and no means of changing the 
medium sound level. 

There are three types of 
invaders, plus a mystery ship 
that scurries across the top of 
the screen occasionally. 
There are 40 invaders per 
screen and you have three 
lives. 

You start with three bases 
and get an additional base at 
2000 points. The invaders 
follow the usual pattern, 
getting very fast at the end of 
each wave. There is a high 
score feature —- a ping sounds 
when you get a new high 
score. 

As invaders games go, this 
one is pretty standard. It isa 
little cheaper than most and 
will keep you amused for 
quite a while. 


Originality * 
Sound kk 
Graphics kk 
Addictiveness kkk 
Value kkk 


Galaxy 5 
Durell Software 
Oric 16/48K 
£6.95 


There aren't many programs 
available for the 16K 

Oric-1 — this Durell offering 
packs five games onto the one 
tape. 

Galaxy is a variation on the 
Space Invaders theme, 
written by Philip Dierks. You 
have three lives. The display 
is simple, and the game 
follows the familiar pattern, 
including swooping aliens. 

Lunar Lander is like most 
games of that name - land a 
module using engines to slow 
you down. Robert White is 
the author. LORES graphics 
are used quite effectively. 
You can also LIST this 
program. 

Astro-War has you darting 
through a starfield trying to 
destroy enemy ships. Cursor 
keys control your movement. 

Space-Chase is by Duncan 
Bett. You have to centre 
alien ships in a firing sight, 
keeping an eye on energy 
levels. This is the most 
original game of the quintet. 

Finally, there's Asteroids — a 
simple obstacle course. 

16K machine owners will 
find this collection of games 
worth getting, if only because 
so little is available. 


Originality * 
Sound kk 
Graphic kok 
Addictiveness * 
Value kkk 
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TOP QUALITY HARDWARE FROM MCP 
THE ORIC 1 


GAME CONSOLE - Speech synthesiser/joystick 
interface (Atari compatible) ORIC approved 


PROGRAMMABLE JOYSTICK INTERFACE 


A/D CONVERTER - 8 Channel analogue to 
digital, 1-channel digital to analogue, 8 latched 
output channels. [Due late-1984] 


CLOCK/CALENDAR [Due late-1984] 


RS232-C INTERFACE - Software programmable 
RS232-C SWITCH - Allows switching between 
two peripherals 


All hardware, except RS232-C switch is modular and will 
plug into expansion port. Fully compatible with Oric-1 
peripherals. 


ALL PRICES INCLUDE VAT P+P. 


ORICAID 


FOR THE ORIC-1 48K (V1.0 and V1.1) 
AND ORIC ATMOS 


This comprehensive package consists ofa TOOLKIT for 
Basic programs, aMONITOR and an ASSEMBLER 
ORICAID is 100% MACHINE CODE and very easy to use 
with full instructions supplied 


TOOLKIT features: APPEND e CONVERT 

e DELETE e FIND e LINE NUMBERING 

e MONITOR e OLD e PROTECT ¢ RENUMBER 
e SHRINK @ VERIFY 


MONITOR features: CONVERT e FILL ® GO e 
HUNT @ JUMP @e LOAD ¢ MEMORY DISPLAY e 
NEW LOCATE e REGISTER e SAVE © TRANSFER 
e VERIFY @ EXIT , 


ASSEMBLER features: BYT, TXT, ASM @ 
MATHEMATICS e 16 BIT WORD ACCESS e 
COMMENTS e@ HEX and DECIMAL @ LABELS e 
PLUS MUCH MORE 


Oricaid hasalready received 5star reviews and weare 
certain, as we know youwill be, thatitis the best utility 
package you can buy. 

The price only £11.95 (inc.) 


Send a P.O. or Cheque for your copy to: 


MICROGRAF LTD.. P.O. Box 17 
Bracknell, Berkshire. RG12 3NQ 


DEALER ENQUIRIES - 0344 481789 
We also guarantee the highest royalties for quality software 
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The Ultimate Concept in Role-Playing Adventures 
* Graphical & Text Games 
* Customised Characters can be used again & again 
* Game-Save facilities 
* Battle-Magic * Wandering Monsters 
* Hidden Treasures 


The Runelord Masterpack (Character Generation Module 
plus sample game) is now available for the ORIC-1 
Each game can be played on its own or built into a massive 
10 part quest! - new modules will be released over the next 
few months. Each game becomes increasingly more complex 
and will build into not just a game but a way of life! 


RUNELORD Masterpack £7.50 incl. 


MODULAR CONCEPT 
PERIPHERALS 
FREEPOST 
SWANSEA SA8 42Z 


DUCKWORTH 
HOME COMPUTING 


All books written by Peter Gerrard, former editor of Commodore 
Computing International, author of two top-selling adventure 
games for the Commodore 64, or by Kevin Bergin. Both are regular 
contributors to Personal Computer News, Which Micro? and 
Software Review and Popular Computing Weekly. 


EXPLORING ADVENTURES ON THE ORIC 48K 
by Peter Gerrard 
This is a complete look at the fabulous world of Adventure Games 
for the Oric Computer. Starting with an introduction to adventures, 
and their early history, it takes you gently through the basic 
programming necessary on the Oric before you can start writing 
your own games. 
Inputting information, room mapping, movement, vocabulary — 
everything required to write an adventure game is explored in 
detail. There follow a number of adventure scenarios, just to get 
you started, and finally three complete listings written specially for 


the Oric, which will send you off into wonderful worlds where 
almost anything can happen. 
The three games listed in this book are available on one cassette. 
£6.95 


Other titles in the series include Sprites & Sound on the 64, 12 

Simple Electronic Projects for the VIC, Will You Still Love Me 

When I'm 64, Advanced Basic & Machine Code Programming on 

the VIC, Advanced Basic & Machine Code Programming on the 

64, as well as Pocket Handbooks for the VIC, 64, Dragon, Spectrum 
and BBC Model B. 

Write in for a descriptive leaflet (with details of cassettes). 


DUCKWORTH 


The Old Piano Factory, 43 Gloucester Crescent, London NW1 7DY 
Tel: 01-485 3484 


The Onc iter VEW 


DR. PAUL 
OHNSON 


The man behind the Oric-]1 and Atmos computers 


is Dr Paul Johnson. Kester Cranswick interviews 
him about recent developments. 


Doctor Paul Johnson is the brains behind your Oric 
computer. He set up Tangerine Computer Systems in 
1979, a company that produced the Tangerine Microtan 
65 system. He has also been involved with Tantel and 
Tiger products. However, his biggest success has been, 
undoubtably, the Oric-1. Now the Oric Atmos has arrived 
on the scene, it is high time some of his views on the 
Oric range were aired. 


Has the Oric-1 computer been as successful as you 
expected it to be? 

No—it's done far better than we ever dreamed it 
would. In our first year we have done about three times 
the business we expected to. We've built 200,000 Orics. 
We've become the top selling computer in France. 
There are over 50 software houses producing around 250 
software packages for the Onic-1. Yes, the Oric-| has 
been a tremendous success. 


Were there any modifications to the Oric-1 during its 
lifetime? 

There were a few small changes on the hardware 
side, though these were only to improve production 
techniques and have not had any effects on the end user. 


With the arrival of the Atmos, is the Oric-1 now 
officially discontinued? 

We stopped making the Oric-1 some time ago. 
However, there are no problems with servicing and we 
shall continue to support it as much as we can. 


What do you see as the main differences between the 
Oric-1 and the Atmos? 

There are two — the keyboard and the ROM. 

When the Oric-1 was designed, full keyboards were 
too expensive to be considered as a feature. We did 
want to use a full keyboard, so the Oric-] was designed 
with the later addition of a full keyboard in mind. Now 
such keyboards have come down in price, it was an 
obvious feature to include on the Atmos. 

The new ROM is basically the same as the old, but 
enhanced to give more features. Much of the code is 
identical, though reassembled, and the systems calls 
have been changed too. 


How will the change from VI.0 to VI.I ROMs affect 
software houses and home programmers? 

We let all the major software houses have details of 
the new ROM back in August, though they weren't told 
that it would be in a new computer. Many of them are 
now producing software compatible with both ROMs. 

We are recommending ‘intelligent’ software packages. 
By that I mean that the program will test which ROM is 
being used and automatically go to the appropriate 
routines. 

If routines are either totally in BASIC or totally in 
Machine Code, there should be no problems transferring 
from one machine to another. It is when there is a 
mixture of Basic and Machine Code that problems start 
to arise. 

The only problem we've found is with the Basic PLOT 
command. As the screen C co-ordinates now run from 0 
to 39, instead of 0 to 38, programmers will need to add 
one to the X co-ordinate in a PLOT X, Y,A command 
when going from old to new ROMs, and subtract one 
from the X co-ordinate if going from new to old ROMs. 


What is the situation regarding upgrades of the Oric-1 
to Atmos specifications? 

We want to provide such a service, if there is a 
demand for it. The problem is that we've only been 
allocated 250,000 chips, and that's only half the nurnber 
we'd really like to achieve full production for the Atmos. 
New machines must be our number one priority, so 
chips for an upgrade will be very scarce. If we know 
what the demand for an upgrade is likely to be, I could 
be more precise about our plans. 


How would you like to see an upgrade done? 

Ideally, we'd want to carry out a full upgrade of new 
ROM, keyboard and casing ourselves. However, one 
option might be a plug-in ROM cartridge, to give instant 
conversion from the old ROM to the new, but with no 
upgrade on the hardware. 
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When the Oric-1 was launched, there were 
complaints about the manual, about the welcome 
programme and about general reliability. How do you 
answer these criticisms? 

The new Atmos manual is, I hope, above criticism. 
Those after a similar type of manual for the Oric-1 would 
be well advised to buy "The Companion to the Oric-1” by 
Ian Adamson, the author of the Atmos manual. 

The original welcome tape problems weren't our fault. 
The company that did the tape duplication did a very 
poor job, and we lost a good deal of money through 
them. The Atmos welcome tapes are done by a different 
company, and aren't causing any problems. 


What about reliability? 

I'd say that the Oric Atmos is the most reliable home 
computer on the market at the moment. The Printed 
Circuit Board is the same as that on the Oric-1, and 
we've had the experience of making 200,000 of those. 
Most of the Oric-1 problems were keyboard related, so 
the full keyboard of the Atmos will overcome those 
problems. At the moment, the in-line failure rate of the 
Atmos is less than one per cent. That compares to a 
normal failure rate of around 30 per cent for most home 
computers on the production line. We now own the 
factory that assembles the Atmos, so our quality control is 
tighter, and every computer is tested with a cassette 
loaded program. 

If any Atmos owners have problems with the 
computer, I would say that the problem is almost 
certainly going to be with the cassette recorder they are 
using, and not with the computer. We are also finding 
that poor cassette duplication is one of the biggest 
causes of loading problems. 


I'd say that the Oric Atmos is the most reliable 
home computer on the market at the 
moment... every computer is tested with a 
cassette loaded program. 


Do you think the price of the Atmos will fall? 

No. The days of computer price wars are over. At the 
moment, there is too much demand for the available 
computers, so there's little pressure to cut prices. 


How do you view the competition? 

The Oric-1's main rival was the Sinclair Spectrum. 
With the Atmos, we have moved out of the Spectrum 
league, and have a machine that is streets ahead of the 
Spectrum, in all departments. For that, the consumer 
must pay a little more. 

The Commodore 64 is a major competitor. As for the 
BBC B, Electron and Dragon micros, they are having 
problems with chip supply, so are becoming 
increasingly difficult to get hold of. I believe that with our 
guarantee of supply, improved specifications and the 
help of TV and press advertising, we're in a very strong 
competitive position. 


You're pinning a lot on the image of the Atmos. 
Where did the name and colour scheme come from? 

They were suggested by our advertising agency, 
KMP. The name is seen as the first in a group of names 
that could be applied to further products. 


What is the likelihood of a 16K Atmos? 
We can produce such a machine, though I believe that 
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the demand for it would be very small — around five per 
cent of total sales. We may produce a small batch at a 
special price, if we think they can be sold. 


Disc drives were promised long ago, and have been 
shown in Atmos colours. When are Oric owners likely to 
be able to buy them? 

We are making disc drives right now. However, as the 
first orders came from our French agent, all initial drives 
are being exported to France. I daresay that if readers 
were to go to Paris, they could probably pick up a drive 
unit, but the manual would be in French, and they'd 
need to get a voltage adaptor. 

When we get enough UK orders, we'll start supplying 
the home market. That will probably be sometime in 
early Summer. 


The Modem was another accessory promised, and yet 
to materialize. Where has it got to? 

We have working prototypes here at the head office, 
and even an Oric linked to Prestel. However, until there 
is sufficient demand for the modem, it is not worth going 
into production. We'll start making it as soon as we feel 
there are enough buyers to take it. 


What does the more distant future hold in store for 
Oric? 

With the Atmos, we've moved decidedly up-market, 
and managed to overcome the problems associated with 
the Oric-1. I'm firmly convinced Oric is here to stay, and 
can only say that we have many projects in the pipeline 
that will be revealed when the time is right. 


Since this interview was conducted, several events 
have caught up with Dr Johnson's statements. An Oric-1 
to Atmos upgrade has been announced, and a 16K Oric-1 
could be upgraded to a 16K Atmos. The new Microdrive 
units are now on sale too. 


Wile 


at 


ARITHMETICAL INVADERS Andrew BALDIE 


Educational programs tend to be rather dull by nature. 
The odd sound or congratulatory message may not be 
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enough to hold the attention of a young student. 

Andrew Baldie of Dundee sent us this program that is 
not only educational, but entertaining too. It is designed 
to test mathematical skills. The entertainment comes 
from a Space Invaders style presentation of the test. 

At the start you are prompted to select a test for 
addition, subtraction, multiplication or division. You are 
then prompted for a difficulty level from 1 to 5. The 
hardest level selects numbers up to 30. 

The test then starts. A skyline and starry background 
are drawn on the HIRES screen. ‘'Numerons’, the 
mathematical questions, then start moving down the 
screen towards your city. By entering the right answer 
and pressing the return key, the numeron will be 
destroyed and five points added to your score, 

Each round has ten numerons to destroy. At the end, 
correct answers are displayed, a total score given anda 
repeat option presented. All in all, this program is a very 
fun way of improving your mathematical skills. 

The listing is quite straightforward. The program will 
easily fit a 16K machine if the POKE locations are 
modified. It will also run on an Atmos if PLOT commands 
are amended. 


YAHTZEE 


David BEXLEY 


Yahtzee is one of those games that is well suited to 
computer conversion. It is a very ancient game, played 
with five dice. i 

The object is to score as many points’as possible. 
There are thirteen possible ways to score, and the idea 
is to get as many points in each scoring category, with a 
maximum of three throws of the dice at each turn. A 
Yahtzee is a hand of five of a kind — not an easy 
achievement. 

The Oric version comes from a trio of Brighton-based 
programmers — David Bexley, R. Furmedge and B. 
Syares. It copes with up to four players, uses traditional 
rules and has a Hall of Fame. There is an instruction 
page too. 

When RUN, instructions can be viewed. The number 
of players and their names are entered. The display then 
changes to a score card, with the scoring categories 
listed and an array of five ‘dice’ displayed. A total of 
three throws of any of the five is allowed, before the 
player is prompted to nominate an untaken score 
category. Once a category has been filled, it can't be 
taken again. A running points total is kept. At the enda 
winner is announced and the Hall of Fame updated. 

The skill comes in choosing which category to score 
under and which dice to re-throw. Add to that the luck of 
the dice and you have an absorbing, entertaining game 
that will keep the family amused for hours. 


The listing, though long, is simple BASIC. There are 
some sound commands, but the bulk is the mathematical 
business of throwing random numbers and totalling 
scores. The listing takes up 9K, but with playing, you'll 
need 10K or so. That means Yahtzee will run on both 48K 
and 16K Oric-1 machines. Atmos owners should add one 
to the first figure in all PLOT statements. 
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Software 


TAPE STORE 


Keeping track of the contents of a music collection is 
just the sort of thing a computer is most useful for. This 
listing from Mr K. D. Allen of Benfleet, Essex, does just 
that, and stores the data on tape. 

He has been using it to keep records of his tape 
collection, and from it he is able to extract information by 
artist, song or tape search. The program is in two 
parts — the workhorse bit, listed here, and the data. That 
you will have to enter yourself 

This program will run on 16K Orics, if POKE addresses 
are modified, and with a lesser amount of data storage. 
As it uses a mixture of Machine Code and BASIC, it isn't 
suitable for the Atmos without a good deal of conversion. 

To use Tape Store, enter the program as listed. 
Assuming it is bug-free, the first RUN will ask for data to 
be input from cassette. As there is no data, yet, you won't 
get much further. ; 

The procedure to start a new file is to type in RUN 35. 
This brings up the main menu at once, and by choosing 
option (2), you can enter data. 

Data is entered in a simple way. The prompts are for 
the Track title, the Artist and where the track is to be 
found. The last response must be a five figure number. 
The first two digits are the tape number (00 to 99). The 
next digit is the tape side (1 or 2) and the last two digits 
are the track number (00 to 99 again). No other form of 
entry will be accepted. 

Remember to adopt a common means of entering 
data, particularly when it comes to mixing upper and 
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lower case. The Oric’s string search facilities mean 
strings must match exactly down to the last space and 
dotted 1. 

After each data entry, you can choose to continue, sort 
(alphabetically) with return to the main menu, or to void 
the last record. 

The main menu gives the options of listing all entries 
(P to pause, S to continue), entering fresh data, deleting 
an entry, Saving data to tape and exiting the program. 
There is also a search facility. 

The option lets you search under track, artist or tape. 
The correct response to the field choice prompt is lower 
case throughout i.e. ‘artist’. When an entry is listed, 
pressing any key returns to the main menu. 

Saving to or loading from tape will be greatly aided by 
a remotely controlled tape recorder. 

These are the variables used in Tape Store. 


A$ Track title 
BS Artist 


TST$ Tape, Side, Track 

Cc Item found flag 

i) Number of records 

L Various uses 

Q Used in delete routine to update E 


D%+J For sort routine 


Now, with all my data on tape, where's that track by 
Oric Clapton! 


Alaster THOM 


Alaster Thom is a music teacher in Northamptonshire. He 
has written a quintet of programs that give the Oric the 
role of music tutor. 

The programs are designed to teach the recognition of 
musical notes and their position on bass and treble 
staves. There are two sections for the treble clef, two for 
the bass clef and a final section to test the student. 

Parts one and three show you the bass or treble clef, a 
note on it, sound that note and ask you to identify it. If 
you get stuck, ask for Help. 

Parts two and four do the same thing but test notes 
above and below the clef. Section five has you trying to 
guess aS many notes as you can in a fixed period of time. 

Atmos owners will have to amend PLOT statements. 
Also, to facilitate entering the programs, you'll probably 
be able to LIST sections of one program and amend it 
with CTRL A to get the next section. 


Remember the simple road race program on your 
welcome cassette. It was pretty easy, wasn't it? 
Starcruiser is an arcade version of that type of game, and 
you'll need quick reflexes to master it. 

Tarik Mughal of Southall, Middlesex is the author. He 
writes that it is based on features of Scramble and 
Asteroids games. It uses a combination of BASIC and 
Machine Code, so though it could be adapted to the 16K 
Oric-1, by changing the POKE and DOKE addresses, it 
can't be that easily converted to the Atmos. If anyone 
wants to have a go at the task, let us know what changes 
are needed. When running, some 9.3K of memory is 
needed. 

When RUN, there is a short delay before the animated 
title page appears. You are prompted for a difficulty 
level from one (easy?) to nine (impossible). Then the 
action starts. 

The game screen is in several sections. You control a 
starcruiser that moves in the upper third of the screen. 
This section is scrolled horizontally past you. Your height 
is controlled by the up and down cursor keys. 


SLOT MACHINE 


Our pub seems to make more money out of the slot 
machines in the corner than it does from selling drinks. 
The slot machine is a fixture these days, and if you can't 
resist the lure of spinning reels and flashing Hold lights, 
this listing is for you. 

If comes from Martin Hagstrem of Denmark and takes 
up 5.6K of memory when running. It will fita 16K 
machine, if you change the value of Z in lines 8992 and 
9100 to #3400+... Atmos owners will have to add one to 
every X co-ordinate in a PLOT ‘command. 

When RUN, a slot machine, the ORIC-1 SLOT, is 
drawn on the TEXT screen. It has three reels, displaying 
coloured symbols. A sheet of scoring combinations is 
also shown, and the number of coins remaining. You start 
with 100. 

Reels are spun by pressing the space bar. Ifa hold 
feature is given, hold any of the reels by pressing the 1,2 
or 3 keys. A hold is cancelled by pressing the 
appropriate key again. 

Sound effects accompany any win, and the coin total is 
updated at each spin. 

The odds are in favour of the player, so it is unlikely 
you'll lose your shirt. There is no check for a negative 


Tarik MUGHAL 


Scrolling past are various meteorites and flying 
saucers. Hit them, or the sides of the play area and your 
one life is gone. They're the easiest things to avoid 
though. 

Every so often, a ‘space tunnel’ appears, and you have 
to negotiate that without hitting the highly explosive 
sides. With some, you can go straight through, but others 
require lightning sharp reflexes. 

At the base of the screen there is an information 
display. The score is updated at the exit from every 
space tunnel -- more frequent updating would slow the 
game down too much. 

The highest score so far achieved is shown, and 
updated when necessary. You are shown the score of 
the last game and the game level you are on is shown 
too. 

When in a space tunnel, a flashing SONAR signal 
appears, warning you not to make violent course 
corrections. A Navigation Lights signal also comes on 
when you are in a tunnel. 

If, or when, you get to 500 points, there is another 
obstacle to be overcome. The scrolling action slows and 
a radioactive mine appears on the right of the play area. 
You are given a number of rockets with which to 
destroy it. The space bar is used to fire a rocket. 

Other features of the game are a replay facility, sound 
effects (thankfully not too loud) and some excellent 
graphics. Take care with the listing, as it is long and 
involved, but it does show the kind of work needed to 
make a good arcade-style game. 


Martin HAGSTROM 


coin total though, and the game will only end when the 
‘S' key is pressed. 

The listing is in BASIC, with copious REMs to explain 
how it works. 

Line 2800-2870 ‘spin’ each reel six times. Lines 
8900-8930 fill each reel with the symbols. Changing 
these sections could alter the odds of this machine. 

To see the re-defined characters, LIST 8500-8600 after 
RUNning the program. 

The variables are as follows. 


P Prize 

5 Number of coins 

H Used to flash winning combination 
A$(a,b) Symbol array 


HOLD Hold feature enable flag 
H1,H2,H3 Reel held flags 
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PUSS IN BOOTS 


So many adventure games, it seems, plunge into 
nightmare environments where all kinds of foul beasts 
live, and you can die in many a tortuous way. This 
adventure, from regular contributor, S. W. Lucas of 
Cheadle Hulme, Cheshire, is based on the fairytale, Puss 
in Boots. 


It is written for a 48K Oric-1, and when running, takes 
up 14.4K of memory. It should just fit 16K Orics. And, as 
Machine Code is not used, it will run on an Atmos if you 
add one to X coordinates in PLOT statements. 

The adventure is text only, with some sound. It follows 
the original seventeenth century story closely, so if you 
get stuck, read the book. 

The scenario is that you are the youngest of three 
miller's sons. At his death, all you were left was the cat. 
This cat was no ordinary cat though, for it could speak. 
You and the cat then set out on an adventure that could 
end with fame and fortune for you both. 

Your Oric takes the role of the cat, and, as cats do, has 
a limited vocabulary. It is addressed in one or two word 
sentences, consisting of a verb and a noun, where 
necessary. In addition, North, South, East, West, Up and 
Down commands move you in the relevant direction. 

The vocabulary is listed here. Only the first three 
letters of a word need be entered for Puss to 
understand. If your syntax is wrong, or the word is not in 
the vocabulary, an appropriate message will be 
displayed. 
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Some of the lines in the listing are very long, and you'll 
need to abbreviate the PRINT command to ? You may 
also need to omit the space between the line number 
and the first letter of the line. It will be there when you 
LIST, of course. 

Should you get stuck, you might request HELP from 
Puss, who may have some advice. If you get really stuck, 
we have a list of hints, and we'll send them to you on 
receipt of a stamped self addressed envelope. Send it to 
Oric Owner, marked ‘Puss in Boots’. 


Vocabulary — Directions 


North 

South 

East 

West 

UP 

DOWN 

IN 

OUT 

Verbs 

ASK GO RUB 
ATTack GRAb RUN 
BANquet HIDe SAI] 
BUY JUMp SAY 
CLImb KILI SEArch 
CRY KISs SHOot 
DANCE LEAve SWEar 
DEStroy LOOk SWEep 
DINe LUNch SWIm 
DIVe OPEn TAKe 
DRInk PHOne TALk 
DROp PRAy TRY 
EAT PULI UNLock 
ENTertain PUSh WAIt 
EXAmine PUT WASh 
FEEd REAd WEAr 
GET RIDe 

GlIVe ROW 

Special verbs 

HELp 

INVentory 

SCOre 

Nouns etc. 

ASSistant FOOd PALace 
BAG GUArd PARtridge 
BOAt KEY RABbit 
BOOts KNife RAT 
BUShes LEAves RINg 
CLOthes LETtuce SHOp 
COlIns OGRe WEDding 
EVIL PAIr 
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Educational software... 


Story Book - A challenging game that develops 
reading skills. Suitable for any level from early 
reader onwards. You choose the text, the game is 
to reconstruct it by guessing the words. £4.95 


ee ES eet 
Picture Book - & colourful spelling game for 
young children. Build up pictures by typing words 


and seeing the objects appear "by magic". £4.95 ‘The Tansoft Linkword series of learning 
programs for the Oric gets this month’s mos 


d.’ 
wen Personal Computer World 


Personal finance... 


Account Book- The money management program. 
Budgeting and record keeping by automatic double 
entry. Produces full reports on screen or printer. 


Easy to use and menu driven throughout. £12.50 (0 a ais ‘Technically the 
py ey way ; 

4 center ‘§ quick «ket package functioned 

For further details phone (0923) 53482 or write to: OE Ve well. The audio tape 
E pae ne a 4 

Softbacks, FREEPOST, Watford, WD 8FP. of a print was particularly clear 
No stamp required if posted in the U.K. ham v “ purer and professional. 
Please state model of computer when ordering. pee: your Home Computer 


Weekly 


DEDUCT 50p from total for more than one program. 


For the ORIC-1 and ATMOS 


Tansoft Ltd. Unit 1, 
The Techno Park, 645, Newmarket Road, Cambridge 


Linkword. A unique way tolearn 
alanguage. 


The highly acclaimed Linkword Language System 
is a new concept designed to take the drudgery out 
of learning foreign words and phrases with similar 
sounding English words and expressions. 

For example the Italian for ‘cat’ is ‘gatto’. You will 
then be asked to imagine a ‘cat eating a large gateau’. 
At a later stage you will be asked what the Italian is for 
‘cat’ and you will recall the image of the cat and the gateau. 


“You then sit back in your chair with pleasure and surprise as 
you realise the system does work!”. Your Computer, April 1984. 

It is very likely that in 10 hours you will have a vocabulary of about 350 words 
and a basic grammar. The courses are ideal for holiday makers, business executives, 
children or anybody who is looking for a constructive and enjoyable pastime. Available 
at £12.95 each in French, German, Spanish and Italian. 
Each language is supplied with a program cassette, 

a manual and all are compatible with Oric 1 and 

Atmos 48K computers. 

Our range of software products is available 
from your local Oric stockist or contact us } 
direct. Telephone Teversham (02205) 2261 43 
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Ge nso 


48k Oric. 


inc. V.A.T. post free 


Our software is available from all Oric dealers and es 
most good software suppliers. In case of difficulty ) Be 
please contact us on Teversham (02205) 2261 or write to us at: 


Tansorr 


Unit 1 & 2, Techno Park, Newmarket Road, Cambridge 


Software LISIGE 


INDEX 


ARITHMETIC INVADERS 
An educational program that uses the attraction ofa 
zap-em invaders game to test maths skills — Page 22 


YAHTZEE 
The traditional dice game, converted to run on your 
Oric. There's a Hall of Fame too — Page 24 


TAPE STORE 
A useful program to keep a record of that large music 
collection, with array saving — Page 28 


STAR CRUISER 
Pilot your space ship through asteroids and avoid the 
radioactive mines — Page 31 


SLOT MACHINE 
Turn your Oric or Atmos into a slot machine and save 
your money in the pub — Page 34 


PUSS IN BOOTS 
A lighthearted adventure in which you can gain fame 
and fortune, aided by a cat — Page 36 


MUSIC TUTOR 
A five part program to teach the bass and treble clefs, 
with an examination at the end— Page 45 


HOW TO SUBMIT PROGRAMS 


We are always delighted to see your programs for 
possible publication in Oric Owner. If the program is 
less than 50 lines long, we will probably consider it a 
Quickie. 

As we are kept busy putting the magazine together, 
we don't have the time to type in long programs. If 
you are sending in a long program then, please send 
it on cassette. To aid correct loading, we would advise 
CSAVEing two listings, one at the slow data transfer 
speed. 

We have our own printers, to give a printout 
suitable for use in the magazine. It is therefore not 
essential that you send a listing for BASIC programs. 
We must have listings for Machine Code programs 
though. 

If you can include any details on special routines in 
your programs, or a brief summary of how they run, it 
would be helpful. 

Finally, unless you include a stamped, self 
addressed envelope, we cannot return any submitted 
programs, due to the number we receive each week. 
Make sure you have a copy of your program at home, 
or enclose a s.a.e. if you want the cassette returned. 
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ARITHMETIC INVADERS 


DATA @,9,18,12,12,18,0,9 2010 PAPER@: INK? :HIRES :POKE618,2 
DATA @,8,98,28,8,8,9,9 2026 CURSET @,19@,1:DRAW 18,8,1:DRAW 
FORA=46416 T046423 :READB:POKEA,; B:N 5, ~-2@,1:DRAW 2,-2,1:DRAWS,@, 1 :DRAWZ2, 2, 
1 
FORA=46456 TO046463 :READB:?POKEA, B:N 2030 DRAW 5,15,1:DRAW 28,8,1:DRAW @,- 
5;1:DRAW 18,@,1:DRAW @,5,1:DRAW 3,93, 1 
REM <<< INSTRUCTION >>> 2046 DRAW 8,-15,1:DRAW3,@,1:DRAWO, 12, 
TEXT :CLS :PAPERB : INK@ 1:DRAW 18,98, 1:DRAW@,5,1:DRAW 5,8, 1 
PRINT: PRINT” ARITHMETIC INUADE 2050 DRAW@,-18,1:DRAW 5,5,1:DRAW@,-5, 
1:DRAWS;5,1-DRAW@,-5,1:DRAW 5,5,1 
PRINT?PRINT:PRINT" YOUR MISSION IS 2868 DRAW@,-5,1:DRAW 3,8,1:DRAW @,-5, 
TO STOP THE NUMERONS" 1:DRAW 2,0,1:DRAW@,5,1:DRAW 3,8, 1 
98 PRINT:PRINT'FROM INUADING TH ART 2076 DRAW @,-5,1:DRAW2,8,1:DRAW @,5,1 
A. 1G DO THIS" ‘DRAW 5,8,1:DRAW @,18,1:DRAW 5,@,1 
6@ PRINT:PRINT" YOU MUST INPUT THE COR 2080 DRAW @,1@,1:DRAW 5,8,1:DRAW @,-5 
RECT ANSWER TO" »1:DRAW2,-2,1:DRAW2,2,1:DRAW @,5,1 
62 PRINT:PRINT' THE NUMERON’S PROBLEM. 2090 DRAW 5,9,1:0RAW 5S,-5,1:DRAW3,@, 1 
a *DRAW@,-18,1:ORAW 4,0,1:DRAW @,10,1 
63 PRINT:PRINT:PRINT" AFTER INPLUTING 2168 DRAW 3,8,1:DRAW @,-4,1:DRAW3,@, 1 
YOUR ANSWER PRESS" *DRAWG, -6, 1 >DRAWS,@,1:DRAWG, -S, 1 
64 PRINT :PRINT' "RETURN?! 2118 DRAW1,@, 1 :DRAW@,5,1:DRAW1@,-2,1: 
63 WAIT 20@:PLOT 18,23,"HIT ANY KEY" DRAW 2,2, 1:DRAW3,9,1:DRAWQ@,—-5, 1 
70 GET A$ 2126 DRAW 3,98,1:DRAW @,18,1:DRAW 5,0, 
Q@@ REM <<< MASTER LOOP >>> {DRAW @,-5,1:DRAW3,-3,1:DRAW 5,9, 1 
10 SUB 1086 ’REM INIT VARIABLES 2138 DRAW 3,3,1:DRAW @,5,1:DRAW2,8,1: 
20 SUB 2800 ’REM SET UP SCREEN DRAW @,-15,1:DRAW4,@, 1 :>DRAWG, 15,1 
N=1 TO 18 214@ DRAW 15,0,1:DRAW 5,-15,1:DRAWZ, - 
SUB 2808+ CSN*208)°<< SET SLIM >> 2; 1:DRAWS,@,1:DRAW2,2,1:DRAWS, 15,1 
NT CRNDC1)*156)+40:Y=20:GOSUB 6 2158 DRAW 12,951 
216@ FOR I=1@ TO 168 STEP2 
B 4080 ’*’<< SECONDARY LOOP >> 217@ CURSET INTCRNDC13*220)+10,1,1 
68 NEXTN 2188 NEXT 
2@ GOTO 8800 °<<< RESULTS >>> 2198 X=5:Y=2:SM$="SCORE =":GOSUB 6900 
REM <<< INIT UARIABLES >>> 2200 RETURN 
TEXT sPAPER6: INK@:CLS 3008 REM<<< ADDITION >>> 
PRINT:PRINT:PRINT:PRINT" YOU HAV 38018 FOR I=1 TO 2 
FOLLOWING CHOICE :=" 30208 ACIJ=INTCRNDC13XCOF +532) :AS=STR 
PRINT:PRINT:PRINT" 13 ADDITION C $CACTIII:ASCIJ=MIDSCAS, 2) 
3838 NEXT 
PRINT:PRINT" 2) SUBTRACTION (-) 3848 SM$=ASC1I+" +" +ASC2) 
sPRINT" 33 MULTIPLICATION C€ 3050 AN=AC1)+AC2) 
3860 IF AN=@ THEN 381@ 
SPRINT" 4) DIVISION (7) 3108 RETURN 
R 
F 
A 


PRI sPRINT:PRINT® PRESS TI 3200 REM <<< SUBTRACTION >>> 
PPROPRIATE KEY." 321@ FOR I=1 TO 2 

040 GET SN$:SN=VUALCSNS) 3220 ACIJ=INTCRNDC13*CDF+6)*2) :AS=STR 
856 IF SN=@ OR SN>4 THEN ZAP :GOl SCACIJIJ:A$SCII=MIDSCAS, 2) 

Q 3238 NEXT 

196@ CLS:PRINT?:PRINT:PRINT" 3248 AN=AC1I-AC2I:IF ANK<1 THEN 3219 
PUT DIFFICULTY CisS7." 3258 SM$=A$(1I3+"-"+A$(2) 

G65 PRINT" C1=EASY, S5=HARD)' 3388 RETURN 

1070 GET DFS:O0F=VALCDF$) 3488 REM <<< MULTIPLICATION >>> 

1@75 IF DF=@ OR DF>S THEN 2AP:GOTO187 3418 FOR I=1 TO 2 

3428 ACIJ=INTCRNDC1)XCDF+5))+1:2:A$=STR 
1808 RETURN $CACT II FASCII=MIDSCAS, 2) 

2000 REM <<< SET UP SCR 3430 NEXT 
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3448 AN=AC1IXAT2) 1 GOSUB 6a8e 

3450 SM$=ASC1I+"*"+A$ (2) IF J=1 THEN EXPLODE 
35008 RETURN NEX] 
3608 REM <<< DIVISION >>> IF TR>S THEN PRINT" IT TOOK YOU 
3610 ACII=INTCRNDC1)*CDF+6)X3+1) :AS=S ONG ENOUGH 883" :WAIT10@:GOTO 53a 

TRSCACIII FA$SCII=MIDSCAS, 2) 5198 IF TR>4 THEN TR=4 
3620 AC2ZI=INTCRNDC13*CDF+3)X2+1) sAS=S 5195 IF SC=@ THEN 5218 

TRSCAC2ZII FASC 2ZI=MIDSCAS, 2) 53208 SM$=MID$CSTRE$CSC),2):X=S5O8:7=2 :G 
3640 AN=AC1I“AC2)2TF AN<ABSCINTCAN) 3) OSUBBG8AG 
THEN 3618 3218 SC=SC+C5-TR) 

3645 IF AN=1 THEN3612 53228 SM$=MID$CSTRE(SC),2):xX=5O:Y=2 :G 
3650 SM$=A$(1)+"7"+AS(2) OSUBB8228 
3700 RETURN 2239 CLS:PRINT® CORRECT" 

4008 REM <<< SECONDARY LOOP >>> 240 PRINT :PRINT" WELL DONE 3" 
4885 REPEAT + tWAIT 280 

4018 K$=KEY$ 53388 IFN<1@ THENCLS:PRINT:PRINT" 

4820 IF K$=CHR$C13) THEN GOSUB Sea ERE COMES ANOTHER 8" 3:WAIT1Q@ 

4038 IF VALCK$)=8 AND K$<>"@" THEN 48 532Q@ POP :PULL :<RETURN 

30 6888 REM <<< PRINT ROUTINE >>> 
4040 IN$=IN$+K$ 6810 CURSET X,Y,;3 
4850 GOSUB 6888 6020 FOR I=1 TO LENCSM$) 

406@ X=X+CINTCRNDC1)*5)~-2) 6830 CHAR ASCCMID$CSM$,1,1)3,98,2 
4870 IFX<1@ THEN X=19 6840 CURMOV 6,4,3 

4080 IF X>20@ THEN X=200 6058 NEXT 

40398 Y=Y+2 61988 RETURN 

4100 GOSUB 6882 8008 REM <<< RESULTS >>> 

411@ UNTIL Y>172 8010 WAIT 2@@:TEXT:CLS 

4120 BSCNI=SM$=>=BCNI=CAN) 8028 PRINT :PRINT" RESULTS 

4125 CLS:PRINT:PRINT' Lt?S TOO LAT "5 

& ogg" 8038 WAIT2ZQ@0:PRINT PRINT :PRINT 
4130 2AP:2AP:2AP:FORI=?7 TO @ STEP-1:P 8040 FOR I=1 TO 10 

APERI :WAIT1@:EXPLODE *NEXT 885@ IF BCI)J<>@ THEN PRINTI3") 

4140 GOSUB 68@0:WAIT120 sBSCII3" = "“5BCI):T=1 
415@ CLS+?PRINT:PRINT" THE ANSWER I 8068 NEXT :PRINT:PRINT 

S "SAN 8078 IF T=1 THEN 8180 
4160 WAIT 588 8088 PRINT :PRINT:PRINT:PRINT" 

41720 IF N<1@ THENCLS:PRINT :PRINT" WELL DONE 9299" 

ERE COMES ANOTHER 9" 8038 PRINT :PRINT" YOU GOT THEM A 
4200 RETURN LL CORRECT. " 
3@@8 REM <<< CHECK ANSWER >>> 8100 PRINT =:PRINT" YOU SCORED "3S 
32818 IF VALCIN$)=AN THEN 5180 * OUT OF S@.™ 
2820 IN$=""skK$=""STR=TRtH1 10 WAIT 20@:PRINT:PRINT" 

3838 MUSIC 1,1,6,8:PLAY?,@,1,900:WAIT HAT IS "52xSC5"%, " 
180 20 WAIT2@@:PRINT:PRINT:PRINT " DO 
3848 RETURN OU WISH TO TRY SOME MORE CYNN)?" 

217) <<< CORRECT >>> 30 GETA$:IF AS="Y" THEN CLEAR :GOTO 

185 GOSUB 68ee 

N$=""IK$S="" (SM$="H#OEHE" 

ORJ=1 TO @ STEP-1 

CURSET 38,176;3:DRAW X-20, Y-163, 


fm) 


wannmonwono-x«x OAD», 


- & 


IF A$<>"N" THEN 8138 
CLSsPLOT 16,12,"BYE." 
GOTO 8162 

RETURN 


Ul 
ies) 


Ot 
Q 


CURSET 218,178;3:DRAWX-2890, Y-163 
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YAHTZEE 


1Q REM XXKXXKKKKKKK KKK KKK KKK KKK KKK KKK 
20 REM x 
32 REM TBH! T 2 EE x 
40 REM x 
5@ REM By x 
628 REM D.Bexley, B.Sayers x 
?2@ REM & R.Furmedge * 
80 REM * 
9B REM OK OOOO OOK Kx 
100 TEXT 

116 FORI=48000T048839 

12@ POKE!],32:NEXTI 

134 PAPERS: INK? 

14@ POKE 6138,2 

15@ GOSLB 2388 

16@ GOSUB 2458 

17@ PRINT :PRINT: PRINT :PRINT :PRINT 

Do you want instructions? CY/4N)" 

180 GET 2$ 

190 IF 2$="Y" THEN GOSUB 2720 

20@ CLS:PAPER1 : INK? 

210 LFg="" 

220 FORI=1TO20:LFS=LF$+CHR$C4) =NEXT 
230 POKE 618,;3 

24@ CLS:PRINT"Number of players 


C1-4) 


3 
258 INPUTP:IFP>@ANDP<SGOTO270 


260 PRINT"Error (Cmax 4 players) 
UB1620:WAIT10@:GOTO240 

270 IF GM=1 THEN 298 

288 DIM S(14,4) 

29@ FORI=1TOP:FORJ=1T013:SCJ,13=-1:NE 
XTJ, I 

300 FORI=1TOP:S(@, 13J=@:SC14, 1J=@:SWCI 
J=@:NEXT 

318 FORI=1TOP:PRINT:PRINT ?=PRINT"N 
ame of player "315" "35 :INPUTHSCI) 
320 IF LENCN$CIJIJ>8THENPRINT"Too 
Cmax 8 characters)" :GOTO 348 

338 GOTO 38a 

340 GOSUB 1620:WAIT 100:I=I-1 
35@ PRINTCHR$(C11)5CHR$C11) 5CHR$C11) 
368 PRINT" 


" :GOS 


long 


370 PRINTCHR$(C11) 5CHR$C113 ;CHR$C11I35C 
HR$C11)5CHR$C113 

380 NEXTI 

39@ POKE 618,2 

408 GOSUB 1788 

410 FORI=1T013:FORJ=1 TOP 

420 PLOT23, 24," 

43@ PLOT23, 23," 

446 PR$= N$CJI+"’s turn" 

45@ PLOT1,1.°' 


24 Onc Owner 


46@ PLOT23,23,PR$:PLOT 10,1,N$CJ3) 

470 PLOT 20+J*4,1,°9" :PLOT4,1,12=PL 

OT5,1;7 

48@ FORS1=1TO20@:ST$=KEY$S :NEXT 

49@ PN=INTCRNDC1)*6)+1 -GOSUB28608 

5988 PN=INTCRNDC1)x6)+1 :GOSUB288@ 

391@ PN=INTCRNDC1)*6)+1 :GOSUB2100 

592@ PN=INTCRNDC1)x*63+1 :GOSUB2120 

593@ PN=INTCRNDC13*63+1 :GOSUB2140 

54@ FORL=1TO2 

398 I =1 THEN PR$="1st throw.. 
ELSE PR$="Last throw... 

368 PLOT23; 23, PR$ 
G 
I 
P 


57@ GOSUB 962 

580 IFI$=""GOTO 668 

59@ PLOT23, 24," 

600 FORM=1TOLENC I$): IN=ASCCMIDS$CI$,™, 
1.9 

618 IF IN>D64ANDIN<K7OTHENIN=7@-IN:GOTO6 
38 
620 GOSUB16@@ :GOTO56a 

63@ PN=INTCRNDC1)*6) +1 

64@ ONINGOSUB214@, 2120, 2100, 2080, 2068 
65@ NEXTN,L 

660 [$="":PLOT23,23,"Score section" 
67@ GOSUB 962 

688 W=VALCI$) :IFW<1ORW>I3THEN GOSUB 1 
680:GOTQ 668 

698 IFSCW,J)<>-1THENGOSUB16@0 :GOTO66G 
700 IFW<ATHENGOSUB2028 :GOTO?20 

718 GOTO 820 

72208 SCW,JI=PS°:SC14,J3=S014,JI+PS:SCO, 
JJ=SCO,JI+PS 

73@ PP=W 

748 GOSUB 882 

7258 W=14 

76@ PP=8:GOSUB 88a 

7270 IFCSC14,JI>62IANDCSWCJI=BITHENSCO 
3JJ=S(@,J)+35:SWCJJ=1:GOSUB 3000 

78@ PP=19:W=@:GOSUB 880 

79@ NEXTJ, I 

B88 WAIT480 

818 GOTO 2208 

828 ON14-WGOSUB188@, 1898, 1248,1270,13 
78,148@, 1540 

830 SCW,JIJ=PS:SC@,jJIJ=S(8,JI+PS 

848 PP=W+4 

858 GOSLUIB 880 

86@ W=6:PP=19:GOSUB 88@ 

878 GOTO 798 

888 Pg="" 

898 IFSCW,JJ<1I@THENP$="— ":GOTOS1@ 
90@ IFSCW,JI<1@@THENP$=" " 

918 P$=P$+RIGHTS$CSTRSCSCW,JII,LENCSTR 
$(SCW,JIII-1) 

3926 GOSUB 2920 
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93@ PLOT19+C4xJ1,PP+2,P$ 1428 SW+SW+CDCLI*XDCL I) 
34@ RETURN 43@ NEXTL 
950 PLOT20+(04kJIJ,11,°35" :GOSUB 30800 448 IFSW=20RSW=80RSW= 180RSW=320RSW=5 
36@ PLOT24,24,"?" BORSW=72G0T0146@ 
970 I$=""'LL=24 458 PS=@:GO0T01470 
98@ GETJ$ 468 PS=25 
3990 IFJ$=""THENGOTO 9388 470 RETURN 
1008 IFASCCJ$I=13 GOTO 1070 480 FORL=1TO6 
@1@ IFASClIJ$I>47ANDASCCI$3 <72BGOTO183 498 SW=8:PS=@:FORL1I=17TO5S:IFDCL1IJ=LTH 
ENSW=SW+1 
820 GOSUB168@ -GOTO9I6@ 280 NEXTL1 
830 [$=[$+J$ 31@ IFSW>3THENFORL1=1T05:PS=PS+DC(L1) 
040 IF LENCI$)>1@ THEN GOSLIB1680 :GO *NEXTL1 -GOTO153@ 
TO 960 320 NEXTL 
@5@ LL=LLt+1:PLOTLL, 24,J$% 15380 RETURN 
868 GOTO 9388 154@ FORL=1T06 
10708 RETURN 1558 SW=@:PS=@:FORL1=1TO5S:IFOCL1IJ=LTH 
1088 PS=@:FORL=1TO5:PS=PS+DCLJ =NEXTL: ENSW=SW+ 1 
RETURN 1568 NEXTL1 
898 GOSUB154@:IFSW<SGOTO1178 157@ IFSW>2THENFORL1=17T05 °F 
110@ PS=S@:PLAY 3,0,0,@ *NEXTL1:GOTO1590 
110 FOR X1=1 TO 6 5388 NEXTI 
1120 PLOTS, 18," . 390 RETURN 
113@ GOSUB 1198 68@ PLOT23, 24," INVALID 
GOSUB 162@0:RETURN 
OSUBI1IS@<=NEXT X1 1626 PLAY 1,9,0,2 
LAY @,0,0,@:GOTO 1180 63@ MUSIC 1,2,5,1@:WAIT 25 
P 
P 
M 


158 
68 
78 PS=8 1648 PLAY @,9,0,8:WAIT 25 
88 RETURN 650 PLAY 1,9,80,@ 
113@ FOR I19=115 TO 108 STEP ~-1 660 MUSIC 1,1,5,1@8:WAIT 5@ 
200 SOUND 1,19,8 670 PLAY @,8,0,@ 
1218 NO 2,225-19,8 168@ PLOT23, 24, 
1220 NEXT I3 6398 RETURN 
R 
I 
L 


G 
P 
F 
Pp 
G 
40 PLOTS, 18," A HT @ € E" 1618 
G 
P 
P 
R 


1232 RN 700 REM XX HIDE SCREEN Xx 
240 B1270: TFSW>3THENPS=4@ :GOTO12 710 K 
6a 7220 CLS 
1258 =@ 1738 PRINT :PRINT 

268 RN 240 PRINT SHA FHHHRHHBH HHH HHH HTH 
2728 PS=8:SW=@:FORL=17T05:FORL1=17T04 HOH HOH HGHE" 
1288 JFDCL1J<DCL1+i 3 THENTE=D(L13:DCL1 175@ PRINT"@ 1@Al 1’s count 1’s@ 
J=DCL1I+1)-DCL1I+1I)=TE @ @ @"; 
129@ NEXTL1,L:IFDC1)=D02)+1 THENSW=SW+ 1768 PRINT"@ 2@A 2’s count 2’s@ 
@ @ @" 5 
3@@ IFDC2)=D03)+1THENSW=SW+1 1778 PRINT"@ 3@A 3*s ¢ , 3’s@ 
31@ IFDC2)=D03)+2THENSW=8 @ @ a"; 
320 IFDC3)=D04)+1 THENSW=SW+1 1788 PRINT'@ 4@ALl 4’s count 4’s@ 
1330 IFDC3)=D04)+2THENSW=6 @ @ @"; 
34@ IFDC4)=DC05)+1THENSW=SW+1 1798 PRINT"@ S@ALL nt 3’s@ 
358 IFSW>2THENPS=38 @ @ @’; 
368 RETURN 1808 PRINT"@ BALL 6’s count 6’s@ 
1378 FORL1=1TO06:SW=@:FORL=1TO5:IFDCL3) @ i) @"; 

=L1THENSW=SW+1 1812 PRINT" ZHH&FHERRHHHAHHHHBHHHN BH ESN 
1388 NEXTL: IFSW=3G0TO1418 HHHNHHHN HEHE 5 

338 IFSW=S5GOT01469 1826 PRINT"@ S UB TOTAL @ @ 
40@ NEXTL1 :GOTO14598 @ @ a"; 

41@ SW=@:FORL=1TOS:1IFOCI.J=i 1GOTO1438 1838 PRINT"@ >» than 62 
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@ @ @"; 
184@ PRINT “SHH! HHHHHHHHHHHHHEHHH 
\HHHNFHHNHHENH EHS 
185@ PRINT"@ 7?@Three 
a @ @";5 
186@ PRINT"@ 8@Four 
@ ars 
187@ PRINT"@ S9@FuLL House 25e 
@ @" 5 
1880 NT"@1@@Four straight 398@ 
@ @"; 
1898 1T"@11@Five straight 48@ 
@ @" 5 
1988 INT"@i2@Y AH T 2€EE 59@ 
@ @" 5 
191@ PRINT"@13@Chance 
@ @ @"; 
192@ PRINT "SHHAPHHHHHHHHHHHHHHHSE 
NHHHNHHHNHHEN EHH" 5 
193@ PRINT"@ A B C D E @ @ 
@ @ Q" ; 
1940 PRINT"@ £EH{ £€#( EHC £8 BR zeeHe 
HHHRHHHOHHHG" 5 
195@ PRINT '"@ @@@G@ee@C6Ee ee ee 
@" 5 
1960 PRINT"@ *#} -4#} *#} *#} 
a"; 
1970 PRINT" *H#HHHHHHHFHHHHHHHHHHHOHHHH 
HHHHHHHHHHH)' 5 
1988 INK 3 
99@ PLOT3;21,7:PLOT21,21,3 
2088 GOSUB 3968 
201@ RETURN 
2020 SW=@:FORL1=1T0O5 
2030 IFDCL1IJ=WTHENSW=SW+DCL1 3 
2048 NEXTL1 
28058 PS=SW:RETURN 
2062 DC1J=PN:GOSUB 2168 
2070 PLOT4, 23, RIGHTS$CSTR$CDOC1I3,139°RE 
TURN 
2080 DC23=PN:GOSUB 2168 
2098 PLOTS, 23,RIGHT$CSTR$(D(2)),1)2RE 
TLIRN 
2100 DC3)=PN:GOSUB 2169 
2118 PLOT12,23,RIGHT$CSTR$(D033),1):R 
ETURN 
2128 DC4)=PN:GOSUB 2169 
2130 PLOTI6,23,RIGHT$CSTRE(DC4)),13:R 


ETURN 
(SJ=PN:GOSUB 2168 


2148 
215@ PLOT2@,23,RIGHTS$CSTR#(D05335,1I3:R 


>a kind TOT@ 


>a kind TOT@ 


@Q A 
i 


bh 


eo 


OA ®A @®A 


y 


yD 


TOT@ @ 


“~#}@ 


LAY1,;8,0,@ 
OUND1,30@/7PN, 128 
LAY@,9,9,0 
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2208 REM SCORE PRINT 

2210 [FP>1THEN GOSUB 3118 

22208 GOSUB 3288 

2238 PLOT4,26, "Do you want another ga 
me’? CTZN)" 

224@ PLOT2; 26,19 
26,20 

2250 GETA$ 
2260 IF AS="N" 
2270 IF AS="7" 
2290 

2280 GOTO 2259 
2290 FOR I9=1 
TO 208 

2308 FORI=4868@0 TO 48039 

231@ POKEI,32:WAITS 

2328 NEXT I 

2338 POKE 618,3 

2348 CILS:END 

235@ TE=S(@,J) :TES=N$(J)°S08,JI=SCO, J 
+1) °N$CJI=NSCIJ+19 

2368 S(O, J+1IJ=TESN$CJ+1I=TES 

2378 RETURN 

23898 CLS 
2398 PRINT:PRINT:éPRINT:PRINT =PRINT?PR 
INT ¢PRINT 
2408 PRINT" 
R$C27)3"NYAHTZEE" 

2410 PRINTCHR$(4) 

2420 PRINT:PRINT =PRINT 
2430 PRINTSPCC5S)"A BSF SOFTWARE PRODU 
CT ION" 
2448 RETURN 
245@ REM REDEFINE CHARACTERS 
24668 READ NUM 
2470 FOR A=1 
2488 READ CHR 

2490 FOR ]=@ TO 7? 

2988 READ PK 

251@ POKE4F6880+CCHRK8)+1,PK 
2928 Next I 

25368 NEXT A 

2940 RETURN 

2008 REM DATA FOR CHAR REDEF 
296@ DATA 12 

2578 DATA 35,8,8,0,63,0,0,8,0 
2988 DATA38,8,8,8,63,0,80,0,0 
2598 DATA 95,6,8,80,15,8,8,8,8 
2680 DATA 394,8,8,;8,15,0,0,0,0 
2610 DATA123,¢4,0,8,56,8,8,8,8 
2620 DATAI25,8,8,8,55,0,0,8,0 
2638 DATAI13,8,8,8,56,8,8,8,8 
2648 DATA 64, 8, 8, 8, 8, 8, 8, 8, 8 
265@ DATAI22,8,8,8,15,8,8,8,8 

2660 DATA 92, 8, 8, 8,63, 8, 8, 8, B 
2670 DATAI24,90,9,@,63,8,8,8;8 


*PLOT1,26,@ :PLOT36, 


THEN 2382 
THEN GM=1:RESTORE :GOTO 


TO 199:READZ$ :NEXTIS:GO 


“SCHR$C4)5CH 


TO NUM 


3 
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2680 DATA33;,8;,8;8,8,42,28,8,2 Sii@ REM ** SORT ROUTINE xx 

269@ REM END OF CHAR REDEF DATA 3128 S1=P-1 

2708 REM INSTRUCTIONS 313@ REPEAT 

2718 CLS 314@ FORI9=1TOS1 

27280 PAPER2:INK@:PRINT 315@ IF SC@,19)> SC@,IS+1ITHEN 3280 
2738 PRINT’ The object of the gam 316@ IF SC@,19)= S(@,I9+13THEN 3188 

e is to ":PRINT 3178 GOSUB 3248:GOTO 3200 

2748 PRINT" score as many points as po 3182 IFNSCI9)<=N$CIS+1ITHEN 3208 
ssible." :PRINT 3198 GOSUB 3246 

2758 PRINT" You nave two throws at cha 32@@8 NEXTIS 
nging “:PRINT 3218 S1=Sl-1 

276@ PRINT"any combination of the fiv 3220 UNTIL S1=@ 
e die (A-E)." 3238 RETURN 

2776 PRINT" If you do not want to thro 3248 REM SWAP ROUTINE 
w any dice," :PRINT 3258 TA$=N$C 19) <NS¢CISJ=N$CI9+13 ¢NSCIY 
278@ PRINT"then press the RETURN key, +1 )=T9$ 

"SPRINT 3266 T9= S(8,19): SCB,I9IJ= SC@,I9+1): 
2790 PRINT : You then have to c SCO, 19+1)=T9 
hoose a" :PRINT 3278 RETURN 

2800 PRINT"category to score in (1-13 3280 REMDOUBLE HEIGHT CHARS 

J." tPRINT 3298 CLS :PAPER6: INK6 
281@ PRINT"A YAHT2EE is five of a kin 3308 PRINTCHR$(4) -PRINTCHR$C11) 
d; "PRINT 3310 IFP>1ITHEN 3380 
282@ PRINT"and a bonus of 35 can be gs 33206 PRINTSPCC11) "Well done "N$C1) 
cored" :PRINT 3338 PRINT*PRINT‘ PRINT *PRINTSPCC11I"Y 
2830 PRINT"if your sub-total is great ou scored "S(@,1) 


er than 62," ?:PRINT 334@ FORYS=81026:PLOT1,Y9,1@:NEXTYS 
28490 PLOT1@,24, “PRESS A KEY TO PLAY" 3358 INK4 

2850 PLOT@6B, 24,47 336@ FORIS=1 TO 4 :READZ$ :NEXTIS 
2868 PLOT@?, 24,12 3378 WAIT25@:GOTO 352@ 


2870 PLOT@8, 24,17 3380 REMXXPOSITIONS OF PLAYTERSXx 
2880 FPLOT31,24,18 333@ PRINTSPCC8) “Tne positicns were: 
2830 GET &$ 7 
2980 RETURN 3480 PRINT:PRINT ?PRINT *PRINT :PRINT 
231@ REM *xk SOLIND WHEN SCORES xx 3410 FORIS=1TOP 

292@ REM Xx INPLT ON SCREEN xX 349426 READE$ 

2936 IF PP=8 THEN S1=3:S2=8:GOTO 2956 343@ PRINTSPCC8) 2$5SPCC2) sNSCIS) 
2394@ IF PP= 19 THEN $1=3:S2=1 ELSE S$ sSPCCI@-LENCN$CIS9SIII3 SC8,19) 

1=4:$2=1 3440 PRINT:PRINT SPRINT 

2958 PLAY 1,98,8,0 345@ NEXTIS 

2960 MUSIC 1,S51,S2,18 3460 IF P=4 THEN 3492 

23978 Pe 3470 FOR I9=1 TO 4-P :READ@$ =NEXT 19 
2380 PLAY @,0,8,¢ 34808 DATA "Ist", "2nd", "3rd", "4th" 
2998 34990 FORYS=@T026:PLOT1;,Y9,1@:NEXTYS 
3008 REM *XSOLIND WHEN SCORE >62 Xx 3508 INK4 

301@ FOR S2=1 70 6 ; 3518 WAIT420 

3020 IF S2/72=INTCS272) THEN ST$="35" 352@ REMXXSORTING HISCORESXxX 

ELSE ST$=" * 3538 IF SC@,1I<HICI@ITHEN 3608 

303@ PLOT26+(04kJ3,11,ST$ 354@ [9=1:18=1 

3@4@ PLAY 1,0,98,8 3558 REPEAT 

305@ FOR S1=145 TO 12@ STEP ~-1 3568 :IF SC@,18)<=HICIS) THEN I9=I9+1 
3@6@ SOUND 1,S1,18 :GOTO 3590 

307@ NEXT S]1 3578 :GOSUB 3616:I8=I18+tl 

3088 NEXT S2 3580 <‘IF I8>P THEN [9=11 

3830 PLAY@,@,2,¢ 353@ UNTIL I9>16 

31@@ RETURN 3688 GUTO 3708 
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3618 REM SHUFFLE HISCORES 

3620 IF I9=18@ THEN HIC10)=Sf@,; 18) sHS¢ 
1Q@J=N$CI8)}:GOTO 3672 

363@ FOR I7=1@ TO I9 STEP ~-]1 

3648 sHICIZI=HICI?-1) 

3658 tHSCI7JHHSCI7~1) 

S668 NEXT 

367@ HICI9I=SC@, 18) 

3688 H$CISI=N$C 18) 

363@ RETURN 

3788 REMXXPRINTING HISCORES SCREENXx 
3718 CILS:PAPER4 : INK4 

3720 PRINTCHRS(11) 

3738 PRINTSPCC11)°## HISCORES ##” 
3748 PRINT:PRINT :PRINT 

3708 FOR I9=1 TO 18 

3768 READ &£$ 
377@ PRINTSPCO7IZ$5SPCCSIHSCISIS 
378@ PRINTSPCC11-LENCH$CI990) SHICIS) 
3798 PRINT 
3800 NEXT 13 

381@ FORYS=8T025:PLOT1,79,1@°*NEXTYS 


382@ INK 6 
3836 PLOT11,1;,;19°PLOT10,1,98:PLOT27,1, 
20 
3848 PLOT11,2,19:PLOT1@,2,8:PLO127,2, 
24 
3856 PLOT12,1, “#4 HISCORES ##" ¢PL 
9T71,1,1@ :PLOT2,1.1@ 
3860 DATA Ist"," 2nd"," 
3870 DATA Sth*," 6th*," 
3880 DATA " Sth", "16th" 
38928 RETURN 
3988 [=488@5!POKE!, 89:PQKE! 
I+4,72:POKE1T+6,84 :*POKEI+8, 90 
391@ POKEI+1@,69+:POKEI+12,69 
POKET+17,98:POKEI+18,121 
POKE 1428, 66:PQKEI+21,83:POKEI +22 


4th" 
Bth" 


3rd"? 
2th» " 


+2, 65 :POKE 


POKE]I+24, 83:POKEI+25,1112:POKEI+2 
*POKEI+27,116:POKEI+28,1139 
POKEI+29,97 :POKEI+30,114:POKEI+3 


RETURN 
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REM Tape Store 

REM By K.D.AlLlLen CMay 1983) Cc) 

REM Oric basic V1.8 

REM ## INITIALT@E ## 

GRAB: HIMEM#B3FF 

GOSUB 208a 
POKE#2@C, 255 :PRINTCHR$( 290) 
POKE#26A, 12 

15 DIM EC1):DIM A$C78O):DIMN BS(780):DI 
M TST$(780) 

16 CLS:PRINT SPCC114) 

{17 PRINT"Welcome to tape store 
SPRINT"Please load the data tape,": 

NT SPCC152) 

19 POKE#67,@2 

2@ CALL#B85B,E 

21 PRINT SPCC11) $CHR$C142)5;"PLEASE WAI 
T" 

22 PRINT SPCC11)3CHR$C142)5"PLEASE. WAI 
Tu 

23 CALL#B85B,A$:PING 

24 CALL#B85B; B$:PING 

26 CALL#B85B; TST$:PING 

38 E=EC1) 

35 REPEAT 

4@ CLS:PAPER?:INK @ 

5@ PRINT"Do you want to :-":PRINT"C1) 
List" :PRINT'C2) Enter" :PRINT" C3) Seare 
h' =PRINT"C4) Detete" 


1 
2 
3 
4 
5 
6 
? 
8 
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51 PRINT'C5) Save data’ :PRINT'(6) Exit 
Program’ :PRINT:PRINT"ENTER CHOICE (C1- 

52" 

53 PRINT:PRINT"REMEMBER when 
ress @ iwice to"; 

54 PRINT" return to 

sting or" 

55 PRINT"searching press P to pause; S 
tO Gont. ° 

6Q@ REPEAT:GET #$:UNTIL VALC2$)<? AND V 

ALCZ$I)>0 

6a CLS 

7@ ON VALC2Z$) GOSUB 80,200,508, 88, 1280 
8, 1588 

72 UNTIL 2$="6" 

82 REM ### LIST #+#4# 

85 IF E=@ THEN RETURN 

90 E=E-Q:Q=@: L=1 

9395 PAPER @ 

1@@ REPEAT 

138 PRINTCHRS(145) ;ASCLI 
14@ PRINTCHR$C146) ;BS(L) 
141 PRINTCHRS$(148) "Tape no 
$(LJ,2)35 

142 PRINT CHR$(C149)3;" Side no 
ST$(L),3,1)3 

143 PRINTCHRS( 150) 3" 
CTST$(LIJ,2) 

147 PRINT 


Listing p 


the menu. During Li 


"SLEFTSCTST 
" SMIDSCT 


Track no "3RIGHT$ 
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15@ L=L+1:TS=KEY$ 

16@ IF T$="p"THENREPEAT :WAITI UNTIL KE 
Y$a''s" 

17@ UNTILL=E+1 OR L=699 OR T$="@" 

18@ GET 2¢$:RETURN 

200 REM### INPUT #4## 

205 REPEAT 

210 E=E+1 

220 PRINT "Enter Track" 

220 JNPUTAS$CE) 

227 IF LENCA$CE)J3>35 THEN PRINT =:PRINT 
“ERROR too long." iGOTO 225 

238 PRINT"Enter Artist” 

240 INPUT BSCE) 

258 IF LENCB$CEJ3>35 THEN PRINT :PRINT 
"ERROR too long. ":GOTO 242 

260 INPUT"Enter tape no;side no,track 
no CtisttI"STST$CE) 

262 IF LENCTST$(0EJ3<>5 THEN PRINT"ERRO 
R incorreASCPRINT length CTTSTTJ":GOTO 
260 
263 IF VALCMIOSCTST$(E),3,133>2 THENPR 
INT"ERROR only 2 sides on a tape 99g": 
GOTO268 

265 CLS 

2708 PRINT a 
Void," 

280 REPEAT:GET 2$:UNTIL VALC2$)<4 AND 
VAL (2$1>8 

285 CLS:IF z#$="3" 
290 UNTIL z$="2" 
295 REM### SORT 4## 

308 CLS . 

31@ PRINT"SORTING....° 

3ii CALL #E6CA 

312 Dx*e=1 

315 D*=D%*x2 

328 IF D*<=E THEN 315 

325 D*=(D%*%-1)72 

330 IF D%*=@ THEN 4080 

335 FOR K= 1 TO E-D% 

337 J=K 

34@ L=J+D% 

358 IFTST$(LI<TST$(J} THEN 368 

355 GOTO 385 

368 HOLD$=TST$( J) *HOLD$(1)=AS(J) =HOLDS 
(2)=B$SCJ) 

365 TST$CJI=TSTS(LI 

367 ASCJI=ASCLI 

369 BSC JJ=BS CL) 

3708 TST$(LJ=HOLD$ :A$(LI=HOLD$( 1) :BS(LJ 
=HOLD$(2) 

375 J=J-D* 

38@ IF J>@ THEN 348 

385 NEXT K 

330 GOTO 325 


To cont,;2 To sort,;3 To 


THEN E=E-1 


488 
59@ 
528 


1s 


338 


CALL#E8@4 *RETURN 

REM### SEARCH #3# 

PRINT"Do you wish to search under: 

PRINT" Track,Artist,or Tape ?" 

54@ INPUT S$ 

55@ IF S$<>"track"AND S$<>"artist "AND 

S$O>"tape" THENS42 

568 CLS 

57@ PRINT"Enter 

588 INPUTQS$ 

582 IF S$="tape" AND ASC(CQ$)>57 OR ASC 
(Q$1<48 THEN PRINT"Enter no only" :GOTO 
588 

585 IF S$="tape" 

RINT" ERROR 
588 

59@ CLS 

595 FORF=1 TO E 

6@@ IFS$="track" 

UB 658 

610 IFS$="artist” 

SUB 658 

615 IF S$="tape" AND LEFTSC(TST$(F),2)= 

Q¢$ THEN GOSUB 658 

62@ NEXT F 

625 PING 

63@ IF C=@ THEN PRINT S$;" 
file." 

635 GET 2$ 

648 C=O0:RETURN 

658 PAPER @ 

66@ PRINT CHRS$(145) ;ASCF) 

678 PRINT CHR$C146) ;BS(F) 

68@ PRINTCHRS$(148)"Tape no 

$(FI,2); 

690 PRINTCHR$(143)" Side no 

$(F),3,1)5 

7@@ PRINTCHR$(15@)" Track no ";RIGHT$C 

TST$(FI,2) 

718 PRINT 

720 TS$=KEYS$ 

225 IFT$="p"THEN REPEAT :WAITZ:=UNTIL KE 

Y$="s"' 

730 C=1 

7350 RETURN 

800 REMN### DELETE 4## 

8@2 PRINT"Track or Tape 

Qu 

883 
824 
883 
8@5 IF S$="tape" 
OSUB 87 

886 GOSUB 38@:RETURN 
867 CLS 


item to be searched" 


AND LENCG$)<>2 THEN P 


incorrect Length CTT)" =:GOTO 


AND ASCFI=Q$ THEN GOS 


AND BSC(FIJ=Q$ THEN. GO 


not held on 


"SLEFTS(TST 


"SMIDSCTST 


+o be deleted 


INPUT S$ 


IF S$0>"tape" AND S$O>"track" THEN 


THEN GOSUB 908 ELSE G 
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81@ PRINT “Enter Track to be deieted” 
82@ INPUT Ds 

83@ FORF=1TOE 

84@ IF AS(FI=DS THEN TST$(FJ="AAAAA" :GQ 
=Q+] 

858 NEXTF 

8728 RETURN 

988 CLS:PRINT"Enter tape 
91@ INPUT P$ 

912 IF ASCCP$)>57° OR ASCCP$)<48 THEN P 
RINT"Enter number only" :GOTO 918 

913 IF LENCP$)<> 2 THEN PRINT"ERROR in 
correct length CTTI":GOTO 918 

914 PRINTSPCC39)5"Enter side no (S)" 
915 INPUT S$ 

917 IF VALCS$I>2 OR VALCS$)<1 OR LENCS 
$)<>1 THEN PRINT"1 OR 2 ONLY....':GOTO 
915 

92@ FOR F=1 TOE 

930 IF LEFT$CTST$(FJ,;2)=PSAND MIDSCTST 
$(F),3,1)=S$THEN TST$CFIJ="AAAAA" :Q=Q+1 
94@ NEXT F 

95@ RETURN 

1000 REM ##4 SAVE ##4# 

1018 PRINT'START DATA TAPE 
1@2@ PRINT" THEN PRESS ANY 


+o be deleted 


KEY AND WAIT 
1@25 
1827 
1830 
1835 
1836 
AIT" 
1837 
Ly? 

1840 
1858 


GET es 

ECII=E 

POKE#67,@ 

CALL1824,£ 

PRINT SPCC201) 5CHRS$C142) "PLEASE W 


PRINT SPCC11) 5CHRSC142) "PLEASE WA 


CALL1024,A$ 

CALL 1024,B$ 

1072 CALL1824,TST$ 

18930 PRINT"DATA SAVED. DO YOU WISH TO 
CONTINUE ?" 

1100 GET2$:1IFeé¢="y"THEN RETURN 

- 1580 REM ### END OF PROGRAM ##3 

-15@5 CLS:PRINT:PRINT 

15108 PRINT"Are you sure ?": 
1520 IF 2$="n" THEN RETURN 
153@ PRINTCHRS$(C17ICHR$( 28) 
154@ CLS 

{55@ END 


GET 2$ 


30 Oric Owner 


REM### ARRAY SAVER #H## 
M=#B809 :READDS 
CLS:PRINT SPCC152);"Please wait. 


FORN=1TOLENCD$JSTEP2 
U=VALC"#"+MIDSCD$,N,2)) =POKEM, U:M 
=NEXT 
READDS : IFD$<> "P" THEN201@ 
DOKE#4@Q, #0A4C :DOKE#4@2, #4CB8 :DOK 
£4484, #B858 :RETURN 
2858 DATA"S55555555233944363855208BB988 
20D6B820BAE6A92520CB6ESA53328C6E5A534208 
2068 DATA'C6ES2QEEB820A7E52428 120832035 
BB 2004E8286GAG0GB 101F 01 7AAAGB2B18199D08 


2078 DATA" @@88DGF8E8CAF@G8B1D128C6ESC8 
DOF S20C3B898DE682895D5288BB98820D6B820 


2088 DATA" S6E6263GE6C925D8F 9283BE68533 
2030£68534A@02B 1 CECS33C8B1CEES34B00628 


2098 DATA" O4E84C83C42GEEB820EBE4242318 
B3209BB82004E82860AG0GB101F@1C2QFQD4AA 


2108 DATA" ESAGGGCAF 8882838E691D1C8DGF5 
ABGO2B90808918188DEF 826C3B898D9681 8A983 


2118 DATA"65@185@1A89882E6G2A502C461E5 
626020CAE6201 8B9AGG3B 1 CEAA88B1CEES@1B2 


2120 DATA"@1CA85338634681 8A5SCE65338561 
ASCF65348562A084B 1 CE2@F6D1855F 84688501 


2138 DATA" 84826020E8@6C932CFBQ34CE4CF 4C 
E200A20020E800862785B420E8002886D 1Baa6 


2148 DATA" 2004E84CE4CFA28@08628862920E2 
Q090052886D 1 S@BBAAZBE28@90F B2086D1BaF6 
21580 DATA" C924D@@6A9SFF8528De@8CC325DGGF 
AI8@852985B485B48AG98BAAZGE 20086B5AB9E 


2168 DATA" ASSFS86CE8S5CFCSA1DBO4E4AQFA1F 
A@Q@B1CECSCSB4D@@6AS5SB5D1CEF@@EC8B1CE18 


21708 DATA" 6SCEAACSB1CESBSCF 980738682804 
E8A2Z2A4C85C455" 
2188 DATA"P" 


STARCRUISER 


1Q HIMEM #97FF :GOSUB580@ : GOSUB308@ :GO 
SUB4@@@ :GOSUB19@@ :POKE#983E; 3 

20 PRINTFREC'"):CLS:INK6 :FORI=48880TO 
48033 

3@ IF I172=INTCI723 THENPOKEI; 192:POKEI 
+40xX9, 183 :GOTO34 

32 POKEI, 230:POKEI+4@x9, 231 

34 NEXT 

48 DOKE P,SS:GOSUB75@@ : GOSLIB1 8080 

5@ GOSUB35@@:PLAY1,1,9,@ 

60 FORF=68TO2@STEP-1 

?@ SOUND 4,F,1:SOUND1,F+3@,1:POKEP-1,; 
FNRC2)+183 

8@ NEXT :POKEP-1,SP:PLAY@, 1,0,@:GOSUB3 
700 

98 FORI=48400TO4888@STEP4@:POKEI,19:N 
EXT 

1@Q REM *xxk MA IN LOO P Xxx 

110 Q@=P :P=P+4@xC CPEEKCKBJ=UPJ—-CPEEKCK 
BJ=DOWN) 3 

120 IF PEEKCP+2)<>SP THEN DOKEG,; BL :P= 
P+1:GOTO2000 

13@ IF RNDC1)>SK THENDOKE CCFNRC8));R 
KCFNRC2)) 

135 IF RNDC1)>.98THENGOSUB458@:PLOT18 
»26,STR$CS) 

14@ S=S+1:DOKEQ,BL:CALL SCROLL :DOKEP;, 
SS :GOTO0118 

5@@ PLOT NRX2,1@,32:RETURN 

6@0 FORI=1TO NR:PLOTIX2,1@,111:NEXTI 
610 PLOT1,1@,@:RETURN 

888 J=@:PLAY1,@,0,8:FORX=CCMPJTOCCMP ) 
=LS STEP=1 

81@ POKEX+1,32:POKEX, 121 

820 J=J+50:SOUND1, 3080-J,4:WAIT1I@ 

838 NEXTX:POKEP-1, 32 

848 PLAY@,1,0,8:FORI=1T03@0:SOUND4,;FNR 
(30), 1 

85@ DOKEP, 25956 :WAIT3 :DOKEP; BL 

86@ NEXTI:POP:PLOT1,1@," 

870 POKEX+1,32:GOTO2008 

180@ POKE#26A,; 1@8:DEF FNRCXJ=INTCRNDC1 
JXX+1) 

1018 PAPER2:INK@:CLS 

18626 PLOT1,11,14:PLOT1,12,14 

103@ PLOT12,11,"GET READ Y" 
104@ PLOT12,12,"G ET READ Y" 
1858 GOSUB8588 

1868 PAPER@ 

1878 P=48177:SS=25185 :BL=8224 :SP=32 
1880 ST=48037 :SCROLL=#9800 

1098 KB=52@ :UP=156 :DOWN=180 

1108 S=@:RKC1)=27498 =RKC2)=28253 

111@ FORI=1TO8:CCIJ=ST+4@xXI =NEXT 

112@ RETURN 

15@@ POKE#26A, 1@:CLS: INK6 :PAPER4 


151@ PLOT1,11,14:PLOT1,12,14 
1528 PLOT1@,11,"P LEASE 
13530 PLOTI@;125"P Le AS & 
154@ RETURN 

2000 POKE4687@,56:PLAY@,1,0,0:POKEQ-1 
»32:FORI=1T015:DOKEP,; BL 

201@ CALL SCROLL :DOKEP, 25956 

2828 SOUND 4,FNRC3@),;2 

2038 WAITS 

2048 NEXT :PLAYG,@,@,@:PLOT18, 24,8:PLO 
T139,24,114:PLOT24, 25,0 

2050 PLAYG,@,@,8:PLOTS, 13, 1 :GOSUB65828 
206@ PLOT 6,13,"YOUR SCORE : " 

2870 S$=STR$CS) iS$=RIGHT$S$CS$,LENCS$)- 
1) 
2675 PLOT19,26,S$:LS=S 

2080 S$=S$+" AT LEVEL "+SL¢:PLOT19,13 
»S$:GOSUBS880 
2098 IF S>HS THEN GOSUB6@@0 ELSE GOSU 
B6G10 

2095 GOSUB1G8008 

210@ PLOT 6,22,"PRESS ANY KEY TO PLAY 
AGAIN" 

2105 PLOT4,22,1:PLOTS, 22, 23:PLOT34; 22 
16 

2118 GOSUB788@ :GOSUB4a80a 

2120 GOSUB1018:GOTO28 

25800 LX=XP ?XM=2-INTCRNDC1)X3+1) ?>XP=xP 
+XM: IFXP<STHENXP=3 

2510 IFXP>28THENXP=28 

2928 LY=YP:YM=2-INTCRNDC13*3+1) :YP=YP 
+YM: IF YP<4THENYP=4 

2530 IFYP>18THENYP=18 

2948 IF LX<>xP OR LY<>YP THEN PLOTLX%; 
Ly," * 

2598 PLOTXP, YP; "Jk" =RETURN 

3888 PRINTCHR$C12) :POKE#26A; 10:PAPERO 
*INK@ 

3005 GOSUBS8000 

3818 PRINTCHR$C4ISPCC11ICHR$C27)"A"CH 
R$C2Z7I"J"CHR$C27)"WSTARCRUISER "5 

3815 PRINTCHR$C27)"P"CHREC4) 

3820 PRINT:PRINTSPCCL2ZICHR$C27)"I5555 
999999999) 2PRINT SPRINT 

3825 PRINTSPCC1I@ICHREC96I" TARIK MUGH 
AL 1383" 

38328 PRINT:PRINT:PRINT" 
TARCRUISER THROUGH THE" 
3040 PRINT"METEOR SHOWER FOR AS LONG 
AS YOU CAN;”" 

3@5@ PRINT"BEWARE OF THE ALIEN SPACES 
HIPS8":PRINT" STEER YOUR WAY THROUGH" 
3@52 PRINT" THE SPACE-" =PRINT" TUNNELS 
WITHOUT CRASHING INTO" 

3054 PRINT" THE SIDES?" :PRINT 


W 
W 


GUIDE YOUR S$ 


Oric Owner 31 


STARCRUISER 


386@ PRINTSPCC63"CONTROLS ARE AS FOLL 
OWS :-" 
307@ PRINT" 
-UP KEY" 
3888 PRINT" 
OWN KEY" 
3@9@ PRINT :PRINT:PRINTSPCC9)">>>PRESS 
ANY KEY <<<" :2$=KEY$ :WAIT1@@ = INK? 
3895 PLOT8, 2@,2:PLOT8,22,5:PLOT8; 21,6 
3108 A=RNDC1) 
311@ FORX=STO26:PLOTX,; 20," jk" 
312@ PLOTX,22;" Jk" SIFKEY$<>""THEN314 
Q 
3125 WAIT19 
313@ NEXTX:PLOT27, 2@, " 
" GOTO3188 
3148 PLAY1,@,@6,@:FORI=1T038 
3158 CALL #9800:SOUND1, [x5+8@; 1 
3168 NEXT -:PLAY@,@,@,8:RETURN 
35@@ PLOT16,11, “IGNITION” 
351@ PLOT1,11,2:PLOT2,11,12 
3528 RETURN 
3708 PLOT16,11," 


CURSOR 


DOWN 


*SPLOT27, 225" 


" SRETURN ~ 


4808 GOSUB8888 :PRINTCHRS$C12)CHR$(4) =] 
NK3 :PAPER@ :XP=19:YP=12 :HL=5@@ :S=0 
4085 GOSUB75@6:PLAYS,8,8,2 


4018 PRINTSPCC6ICHRE$C27)"JENTER SKILL 
LEVEL (1-3) "; 

4020 PLOT6,;@,1:PLOT6, 3, 1:GOTO4080 
4832 IF2=@THEN4@6@ ELSE SL=2:PRINT2$; 
tWAIT2@ 

4035 SL$=STR$CSL) :SL$=RIGHTS$CSL$,LENC 
SL$)-1) 

4840 SK=2/710:SK=1-SK:INK@:PAPER@:PRIN 
TEREC?* 

480508 PRINTCHR$(4) :RETURN 

4062 PLOTX+3,9,7:PLOTX+3, 3, 7:PLAY@; 1; 
9, 0:FORI=X+4T036-: GOSUB2500 

4@65 PLOTI,@," o":PLOTI,3," o" 

407@ SOUND4, 1-18, 1:NEXTI:PLAY@,@,0,@: 
PLOT37,@," ":PLOT37,3," ":GOT0O418@ 
4880 FORK=7TO28:PLOTX;@," ab" :PLOTX,3 
s" ab" :GOSUB258¢@ 

4098 2$=KEY$: IFAS <> "" THENZ=VALCZ$) GO 
T0403 

4188 NEXTX:PLOT29,@, " 
“?GO0T04088 

4580 PS=FNRC4) :SOUND4, 3@, 1 :GOSUB468@: 
DOKEQ, BL :DOKEP,; SS:FORI=1TO SLxX25 

451@ POKE CC(PS),112:POKE CCPS+4),113 
4520 Q=P :P=P+4@x*C CPEEKCKBIJ=UPJ-CPEEKC 
KBJ=DOWN) 3 =IFPEEKCP+2) <>SP THEN 4880 
4530 POKEQ-1,32:DOKEQ,BL:CALL SCROLL: 
DOKEP; SS :POKEP-1, 7 

454@ SM=2-FNRC3) :PS=PS+SM:IF PS=@THEN 
PS=1 ELSE IF PS=S THEN PS=4 


"?PLOT29,; 3," 


32 Oric Owner 


4558 NEXT :GOSLIB47@@ :SOUND4, 28, 1:S=S+S 
LX25 :-DOKEP; BL :PLOT24, 25,0 

4555 PLOT3; 24,8:POKEP-1, 32: INK6 :=POKE4 
8361,231:IF S<HL THEN RETURN 

4568 HL=HL+5@@:POP -GOTO9508 

460@ DOKEG, BL :DOKEP,SS:PLOT18,24,12:P 
LOT24,25,7:FORI=1 TO SLk12 

46@5 POKEC(PS),112:POKECCPS+4),113 
4618 Q=P :P=P+4@xC CPEEKCKBJ=UPIJ-CPEEKC 
KBJ=DOWNI) >TFPEEKCP+2)<>SP THEN 4892 
462@ POKEQ-1,32:DOKEQ,BL:CALL SCROLL: 
DOKEP, SS :POKEP-1;,;FNRC2)+197 

4630 NEXT :POKE4687@,63:PLOT19,24,115 
464@ INKS :POKE48361, 231 

465@ PLOT18, 24,8 :RETURN 

4700 FORI=1T018:Q=P :P=P+4@xC CPEEKCKB) 
=UP)J-CPEEKCKB) =DOWN3 3 

47186 IFPEEKCP+23<>SP THEN 4800 

472@ DOKEQ-1,32:DOKEQ@,BL:CALL SCROLL 
4736 DOKEP,SS:POKEP-1,7:WAIT4 :NEXT 
474@ POKE4687@,56:PLOT19,24,114:RETUR 
N 

4880 POP :GOTO12@ 

3082 TEXT :A=#9800:PLAY@,@,0,0:GOSUBIS 
Q@@:HS$="Q " 

5810 READ B:IFB=SS93THENS14@ 

3028 POKE A,B:A=A+1 :GOTOS014 

5@38 DATA #A9,128, #85,128, #A9, 187,#85 
3129 

5648 DATA #A3,1, #85, 130, #AS, 128, #85, 1 
31 

3@5@ DATA #A5,129, #85, 132, HAG, 138, #AS 
131 

3060 DATA #18, #69, 40, #85,131,#A5, 132 
5@78 DATA #69,0, #85, 132, #CA,; #DQ, 240 
3980 DATA #A@,3,#B1,131,#88,#91,131,# 
C8 
5838 DATA #C8, #C@, 39, #DB, 245, HAY; 32 
310@ DATA #91,131, #88, #91,131 

5118 DATA #A6, 130, #E8, #EQ@, 28 

5126 DATA #F@,5, #86, 130, #18, #90, 198, # 
68 

51308 DATA 339 

314@ READ C:IFC=9933THENRETURN 

5158 FORI=46080+8xC TO 46887+8xC 
316@ READ X:POKE I,X:NEXT :GOTO514@ 
53178 DATA 97,8,8,48,63,; 31,63,15,0 
3188 DATA 98,0,90,8,32,60,63,56,0 
53198 DATA 99,1;2,5,18,18,4,3,@ 

528@ DATA 108,8,5,16,2,36,1,20,2 
39218 DATA 1801,0,8,34,8,1,8,36,0 

9220 DATA 102,0,18,12,12,18,90, 30,51 
5236 DATA 183,51,38,0,18,12,12,18,0 
32428 DATA 104,8,0,16,4,18,8,32,0 
5258 DATA 185,8,48, 48, 28,47, 38, 48, 32 
3268 DATA 106,9,@8,7,31,42,31;,7,0 


STARCRUISER 


5278 
3288 
52398 
5380 
5312 
53208 
3330 
9342 
3358 
53368 
5378 
3388 
53398 
54008 
3418 


DATA 
DATA 
DATA 
DATA 
DATA 


107,0,0,48,60,42,680,48,98 
108,8,0,0,4,1,8,8,9 
109,0,0,0,20,9,18,0,0 
119,48, 44,18,42,52,20,8,48 
111,80,80,9,16,14,16,9,90 
DATA 112,0,80,62,62,54,42, 20,8 
DATA 113,8,20,42,54,62,62,0,@0 
DATA 114,63,33,45,45,45, 45, 33,63 
DATA 115,08, 2,36,48,55,32,4,2 
DATA 116,8,31,16,31,1,31,8,63 
DATA 117,;0,;315175;175;17,;31,;0,63 
DATA 118,0,17,;25,21,19,17,80,63 
DATA 119,8,31,17,31,17,;17,;0,63 
DATA 120,0,31,17,31,18,17,8,63 
DATA 121,80,6,18,12,12,18,0,0 
5399 DATA 999 

6008 HS$=STR$CS) *HS=S :HS$=RIGHT$SCHSS$, 
LENCHS$)~-1) 

6005 HS$=HS$+" AT LEVEL "“+SL$ 

6016 PLOT 7,16,"HI-SCORE : " 

6020 PLOT 18,16,HS$:PLOT6, 16,4 

6030 PLAY1,@,@0,8:FORV=STOISTEP-1 

6840 FORF=S58TO3@@STEP25 
6850 SOUND1,F,U*NEXTF,V 
68628 PLAYG,0,8,@:RETURN 
650@ PLOT14,9,14:PLOT14, 10,14 

651@ PLOT15,9, "GAME OVER" :PLOT15,1@," 
GAME OVER" 

6520 PLOT13,9,4:PLOT13,18,5 

6538 WAIT1@@:RETURN 
7008 ST$="STARCRUISER 
" TARIK MUGHAL 1983"+" 
7005 FORI=1TO3:2$=KEY$ :POKECCIIJ-37,16 
:POKECCI)-36,2 

7007? POKECCI+5)-37,16:POKECCI+5)-36,2 
*NEXT =<POKE4816@, 18 

7088 POKE4820@, 10:POKE48161,7:POKE482 
01,7 

7201Q@ J]=@:REPEAT:I=I+1:IFI>OLENCST$) THE 
NI=1 

7820 PLOT37,;3,MID$CST$,1,1):PLOT37,4, 
MID$CST$,1,1) 

703@ X=FNRC15):IFX=STHENDOKE CCFNRC3) 
J,RKCFNRC2)) :GOTO7640 

7035 IFX=1@THENDOKE CCFNRC33+5),RKCFN 
RC2)) 

7040 POKE48298, SP :DOKE48299,BL:CALL S 
CROLL :DOKE48299,SS 

7045 POKE48298,FNRC2)+1@7:UNTIL KEY$< 
>" " SRETURN 

7500 PLOT 8,19,1@:PLOT 8,206,190 

7910 PLOT 9;19;"S TA RCRUISER 


7326 PLOT 9,20,"S TAR CRUISER 


"+CHR$C396)+ 


7330 PLOT?,19,1:PLOT?,; 20,5:RETURN 


8000 FORI=48088T048639 :POKEI,16:NEXT: 
RETURN 

8500 PLAY1;0,0,@:FORI=1T04 :FORF=4@@TO 
1S@STEP-S 

8518 SOUND1,F,1:NEXTF, I 

8520 PLAY@,@,0,@:RETURN 

3000 PLAY1,8,0,@0:FORF=30@T01@0@STEP-1@ 
>CALL SCROLL: WAITS 

901@ SOUND1,F,1:NEXT:PLAY@,@,0,@0:RETU 
RN 

9588 GOSUBS60@ :FORF=5T03@:POKEP-1, 32: 
DOKEP,BL:CALL SCROLL :DOKEP, SS 

351@ SOUND4,F, 1 :SOUND1,F+8@,1:POKEP-1 
sFNROC2)+107 :WAITF-4 ¢NEXTF 

9515 PLOT18,26,STR$CS):PLAYG,1,0,0 
9528 SL=SL+1:IFSL=1@THENSL=9 

9525 SK=SL71@:SK=1-SK:PLOT18, 25, STR$C 
SLJ :=NR=5 :GOSUB6@G 

39538 GOSUBSI85S@ :GOSUBI70@ : GOSUBI88@8 PL 
AY@,;1,0,0 

3548 GOTO118 

3688 FORI=1TO16:DOKEP;,SS:POKEP+I+1,11 
1 >SOUND4, 1,4 

9610 WAIT3:DOKEP, BL *POKEP+I+1,32:CALL 
SCROLL :POKEP+I+1,32:NEXTI 

9628 SOUND4, 28,1:PLAY1,1,0,@:RETURN 
3658 PLOT2,1@," “RETURN 
9700 FORI=1TO3@:POKEP-1,FNRC2)+107 
9718 SOUND4, 31-I,1:WAIT8:NEXT :<POKEP~-1 
132 

3728 SOUND4, 28,1 :RETURN 

9800 PLOT3, 25,12:PLOT3, 26, 12:PLAY1,@, 
Q,@:FORI=1TO4 

9818 SOUND1,15@,1:WAIT3@ 

9820 SOUND1, 200, 1 :WAIT3@:NEXT 

9838 PLOT3; 25,8:PLOT3; 26,8:RETURN 
985@ MP=FNRC8) :POKECCMP),111:PLAY1,@,; 
9,@:SOUND1, 4800,4 

9860 IFPEEKCKBJ=132THENSS@0 ELSE POKE 
P-1,FNRC2)+187 
39870 QP=MP >MP=2-FNRC3)+MP : IFMP=@THENM 
P=1 

3888 IFMP=STHENMP=8 

9898 POKECCQP), 32:POKECCMP),121:GOTOS 
860 

3908 GOSUBS@@6:PLAY@,1,;0,@:FORI=P+3TOP 
+20 :POKEI-1, 32 

9905 IFPEEKCIJ=121THENPOKEI, 32:GOSUBS 
658 :RETURN 

9910 POKEI,111:SOUND4, I-P-2,2 

9920 NEXT :POKEI-1,32:PLAY1;@,@,@:SOUN 
D1, 4080, 4 

9938 NR=NR-1:IFNR>@THENS868 ELSE8@@ 
18880 PLOTS,24,"NAU. LIGHTS : r" 
19@1@ PLOTS, 25, "LEVEL :":PLOT19 
525,;SL$ 


Onic Owner 


33 


STARCRUISER 


18828 PLOTS, 26, “SCORE 
+26, STRSCSJ 
18038 FORY=24T026 :PLOT1,7,7:NEXT 
19848 PLOT18; 24,7 

100508 X$="tuvux" :FORX=26T038:PLOTX; 25 
»ASCCMID$CX$, X-25, 13) +128 

1Q@Q6Q NEXTX:PLOT24, 25, @:PLOT23; 25; 12 


+" sPLOT18 


19078 PLOT26,24,°H.S.: “:PLOT32, 26," 


18882 
:24;8 
188398 


PLOT31,; 24,STR$CVALCHS$) 3) =PLOT25 
PLOT26, 26, "L.S. :":PLOT32, 26; " 


18188 
10118 


PLOT31, 26,STR¢#C(LSJ :PLOT25; 26,8 
RETURN 


SLOT MACHINE 


SQ REMKXKKKKK KKK KKK KK KKK KKK KKK KKK KK KK 
31 REMX x 
S52 REMxX SLOT-—MACHINE x 
33 REMx x 
54 REMKXXKKK KKK KKK KK KKK KK KKK KKK KKK KK 
65 POKE #26A; 10 

7@ GOSUB 8908 

82 IF PEEKC#B40@+8XASCC"c"JI=@ THEN G 
OSUB 8399¢ 

85: CLS 

98 PAPER 7: INK@ 

95 DIM A$C2,6) :GOSUB 8589 

SP REM XXXXXKXKKKKKKK 

98 REM X* FILL SCREEN X 

99 REM XXXXKKXKKKKKKKX 

102 FOR x= 2 TO 19 

11@ PLOT X,4,"$" +: PLOT X%,24,"#" 

12@ NEXT 

13@ FOR x=5 TO 23 

140 PLOT 1,X,CHR$C34) : PLOT 19,X%,CHR 
$034) . 

145 IF X>7THEN PLOT 21,X%,"9" =PLOT 22 
2m, 9" 

147 IF x>12THEN PLOT 20,%,"9" 

15@ NEXT 

16@ PLOT 21,24, "#": 
OT 20,21, °#": 
208 
210 
228 
238 


PLOT 21,7; "$"2 PL 
PLOT 20,22,"$" 

FOR x= 4 TO 1? 
PLOT X,15,"$"5 
NEXT 

FOR X=16TO 13 

24@ PLOT 3,X;CHR$C34): PLOT 18,X, "2" 

243 PLOT 8,X%,"*":PLOT 13,X%,'%"=:PLOT 7 
»¥%sCHR$(O):PLOT 12,%,CHRS$CO) 

246 PLOT 17, X%;CHRSCQ) 

250 NEXT 

40@ PLOT 38,2,A$(C1,6) 

4@1 PLOT 24,2,A$C1,6)+A$C1,6)+A$C1,6) 
492 PLOT 24,3,A$C2,6)+A$(2,6)+A$C2,6) 
+CHRSCOI+"= 200" 

411 PLOT 24,4,A$C1,5)+A$C1,5)+A$C1;5) 
412 PLOT 24,5, A$(2,5)+A$C2,5)+A$C2,5) 
+CHRSCOI+"= 180" 

421 PLOT 24,6,A$C1,4)+A$C1,4)+A$C1;4) 
422 PLOT 24,7, A$ C2, 4)+A$(2, 4) +ASC2, 4) 


PLOT X,20,"#" 


34 Oric Owner 


+CHRE$(O)+"= 18" 

431 PLOT 24,8,A$C1,3)+A$(1,3)+A$C1,3) 
432 PLOT 24,9,A$C2, 3) +A$(2, 3)+A$(2, 3) 
+CHR$(OI+"= 15" 

441 PLOT 24,18, A$C1,2)+A$C1,2)+A$C1,2 
} 

442 PLOT 24,11,A$C2,2)+A$SC2, 2)+A$(2,2 
J+CHR$(OI+"= 12" 

451 PLOT 24,12,A$C1,13+A$C1,1)+A$C1;1 
j 

452 PLOT 24,13,A$C2,1)+A$C2Z,1I+A$SC2; 1 
J+CHR$COI+"= 186" 

461 PLOT 24,14, A$C1,13)+A$C1,13+CHRSCO 
J+" SHS" 

462 PLOT 24,15,A$C2,1)+A$C2,13+CHRSCO 
Bea = 3) 

471 PLOT 24,16,A$C1,1)+CHRSCOI+"$S$ $$ 
472 PLOT 24,17,A$C2,1)+CHRSCOI+" 

= ra 

48@ PLOT 25,23,"COINS: 180" 

485 PLOT 6,6, “ORIC1—-SLOT" 

POQ REM XXXKKKKKKK KKK KKK KKK KKK KKK 

701 REM xX SET UP INITIAL VALUES xX 

PBZ REM XXKKKKKKKK KKK KKK KKK KKK KKK 

710 2=0:X=INTCRNDC1)*6+1)=GOSUB 8008 
220 2=1:X=INTCRNDC1)*6+1):GOSUB 8008 
73Q@ 2=2:X=INTCRNDC13*6+1):=GOSUB 8082 
748 S=180 

1997 REM XXXKKKKKKKKKKKKKKK 

1998 REM * WAIT FOR INPUT x 

1999 REM XXXKKKKKKKKKKKKKKK 

2888 IF NOT HOLD THEN 2883 

2801 PLOT 3,21,CHR$C23)+"HOLD"+CHR$C2 
3)+"HOLD"+CHR$C23) +"HOLD" +CHR$ C23) 
2002 GOTO 20893 

2083 PLOT 3,21," 7 
20893 GET AS 

2010 IF AS=" " THEN 2808 

2015 IF A$="S" THEN CLS:STOP 

2020 IF HOLD=FALSE THEN 2809 

203@ IF A$="1" THEN Ht=-1-H1=PLOT 3,2 
1, CHR$C23+2XCH1=TRUED) 

2048 IF A$="2" THEN H2=-1-H2:PLOT 8,2 
1, CHR$C23+2*CH2=TRUE D3 
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2050 IF A$="3" THEN H3=-1-H3:PLOT 13; HOLD=@ ELSE HOLD=-1 
21, CHR$023+2XCH3=TRUEJ) 5@55 H1=FALSE :H2=FALSE *H3=FALSE 
2862 GOTO 28893 5070 IF P>@ THEN 5768 
Z7AS7P REM XXXKKKKKKKKKKKKKX 5@75 S$=STR$CS) 
2798 REM * START ROLLING xX 5@88 IF S>=@ THEN S$=RIGHT$CS$,LENCS$ 
2799 REM KXKKKKKKKKKKKKKKK w-1) 
2800 PLAY 1,1,8,@:SOUND 1,3800,3 PLOT 32,23,S$+" * 
2802 S=S-1 GOTO 2808 
2805 FOR X9= 1 TO 6 FOR AY = 1 TOP 
2810 IF NOT Hl THEN VUt=U1+1: IF U1>6 FOR A8=1 TO 188 STEPS:SOLIND 1;,A8 
THEN V1=1 > WAIT 1: NEXT 
2828 2£=O°X=VU1: UB 8800 2 S=S+1: S$=STR$ CS) 
2838 IF NOT H2 U2=VU2+1: IF U2>6 IF S>=@ THEN S$=RIGHT$C(S$,LENCS$ 
THEN U2=1 
2840 2=1 >x=U2:G 8080 PLOT 325 233S97+" ° 
285@ IF NOT H3 U3=U3t1: IF U3>6 WAIT 5S: NEXT 
THEN U3=1 PLAY 8,8,98,9 
2860 2=2:x=U3: 8088 GOTO 5838 
2870 NEXT REM XXXKXKKKKKKKK KK 
3808 REM REM x PLOT FIGURE * 
3018 IF NOT Hi THEN V1=PCINTCRNDC1)X2 REM XXXXKXKKKKK KKK KK 
Q+1)3:CALL #FB1@: WAIT 10 PLOT 4+2X5,17,A$C1,X) 
3030 2=0:X=U1:GOSUB 8a0a PLOT 4+2x5,18,A$(2,X%) 
311@ IF NOT H2 THEN V2=PCINTCRNDC1)x*2 RETURN 
@+1)):CALL #FB1@0: WAIT 10 REM XXXKK XK KKK KKK KK KKK 
3130 2=1:x=U2:GOSUB 888d REM x SET UP FIGURES x 


3210 IF NOT H3 THEN U3=PCINTCRNDC13X2 REM XXXXXXKKKK KKK KK KKK 
@+1)):CALL #FB12 A$C1,6)=CHR$COI+" ab" 
3230 2=2:xX=U3:GOSUB 8800 A$(C2,6)=CHR$COI+"cd" 
3955 IF H <= @ THEN 3990 ASC1,5)=CHRSC2)+"e Ff" 


396@ PLOT 23, 2*H, 23 1 A$(2,5)=CHRS(2) 
397@ PLOT 23,2XH+1,23 528 A$(1,4)=CHR$C3) 
3987 REM OOO SOOO KKK A$(2,4)=CHR$C3) 
3988 REM * HAVE WE GOT A WINNER? x 538 A$C1,3)=CHRS(4) 
3989 REM OOOO KKK A$(2, 3)=CHR$C4) 
399@ P=: H=@ 54@ A$C1,2)=CHR$C2) 
4908 IF U1l=6 AND U2=6 AND THEN A$(2,2)=CHREC1) 

=200: H=1 A$C1,1J=CHR$C2) 
401@ IF U1=5 AND AND THEN A$(2,1J=CHRESC 

=100: H=2 RETURN 
4920 IF U1=4 AND U2= THEN REM XXKKKKKKKKKKKKKKX 

18: H=3 REM * PROBABILITIES x 

4030 IF AND U2= =3 THEN REM OCC 

15: H=4 DIM PC(2@): FOR X=1T02@: READ PCX 

4840 IF AND THEN 

12: H=5 8918 RETURN 

4850 IF Ul=1 AND U2: THEN @OGA WATA ty ty islets Zs ds Po Fs 253s 8x53 

18: H=6:G 4092 1454,4;5,5,6 
4060 IF AND U2=1 THEN P=5: : 8989 REM OO CK OOK KKK 

OTO 4992 8990 REM x USERDEFINED CHARS. x 
4080 IF AND P=@ THEN P=2: 8991 REM OOOO OK 
4990 REM 8992 Z2=#B400+8xASC("a") 
5Q2@ IF H<=@ THEN 5@5@ 8995 FOR X1= 1TO 6 
5Q3@ PLOT 23, 2*H,12 9885 FOR X2=1 TO 32 
504@ PLOT 23,2kH+1,12 9212 READ Y 
5@5@ IF CH1 OR H2 OR H3) OR P>@ THEN 9828 POKE 2,Y 


gh" 


roti 
IJ 


++ t+ + + + ¢+ 4+ + 
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2=2+12 NEXT =NEXT 
2=#B400+8XASCC" 2") 

FOR X1=1T04@ 

READ Y 

POKE 2,Y: 2=2+1 

NEXT 

RETURN 

REM BAR 

‘DATA @,8,0,0,8,63,63, 14 
DATA 8,8,8,0,8,63,63,51 
DATA 21,12,21,13,63,63,0,@ 
DATA 21,19,21,21,63,63,8,8 
REM FOUR-LEAF CLOVER 

DATA 12,14, 38, 38,63,63, 63, 28 
DATA 6, 14,31,31,31,63,68,48 
DATA 3;,15,;62,62, 38, 28,9, 1 
DATA 68, 62,62, 46, 46,44, 32,9 
REM BELL 

DATA 3,4,45;3,15;7,;15,15 

DATA 48, 8,8, 48, 32,56, 60, 68 
DATA 15,15,31,31,63;31,7;1 
DATA 68, 68,62,62,63,62,56, 32 


PUSS IN 


1 REM xk: Puss in Boots xXx 


the 48 


2 REM xx an adventure game for 
K ORIC 1 computer xx 
3 REM XXX <c> S.W. Lucas xxx 


4 REM Xk version 1B January 1984 Xx 

S PRINTCHR$(C173:REM TURN OFF CURSOR 
1@ TEXT :GRAB:PAPER@: INK? :REM xx RELEA 
SE HIRES MEMORY AREA xx 

2@ GOSUB 5@@@ :REM TITLES AND INSTRUC 
TIONS. 

32 REM DATA-FOR MUSIC 

4@ DATA1,1,;3,1,;5,151,3,5,;6;851515,3,5; 
6,58,1,1,3,1,8,1,18,1,12,1,12,18,8,6,5 
38 DATA3; 1 

6@ Ax=0 *B*=8 2CX%=82D%=O5E%=O 2 F X=8 2G%=8 
tH*=O21%=8:Jx=O 

70 K*=8°L4=8 IM%=8 NZ =O IM =O UN*=8 I0K=0 
80 PxX=1 FQ*=O2RF=O 29% =O 2TX=O5U% -BiU%=8 
tWX=BIXX=OSYX=O2RxX=Y 

108 AQs=""" 

118 SA=8:SB=@:SC=@:SD=@ :SE=@:SS=@ :AB= 
@:AA=@ -AC=8 -AD=0 :AE= 

120 AF=0:AG=@:AH=2 

15@ CLS :PAPER@:INK1 

168 FOR xX=1TO2:PLOT1,x,x 
161 PLOT2,x,14 

162 PLOT8,x,"<C> S.W. LUCAS 
164 NEXT X 

165 PRINT :PRINT ‘PRINT 

172 PRINT:PRINT:PRINT:PRINT"Piease 


1984" 
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3898 REM CHERRY 

3308 DATA @,9,8,8,80,8,1,1 

9982 DATA @,8,12,8,16,32,9,8 

9384 DATA 3,7;15,15,15,15,7;3 
3386 DATA 48,56, 44,60, 60,620,56,48 
9375 REM LINES 

9388 DATA 32, 32,32, 32, 32,32, 32,32 
9982 DATA 1,15131515,15,1;1 

3384 DATA 63,8,8,8,8,8,0,0 

3986 DATA @,0,8;8,8,0,8,63 

9988 DATA 8,8;8,8,8,8,8,8 

28828 S=S-1 


386@ REM PLUM 

9862 DATA 8,98351533757;15,31 

39864 DATA @,68,62,63,63,63, 63,63 
3866 DATA 31,63,63,63,63,63,; 31,15 
3868 DATA 62,62,62,68,56,48,48,@ 
3888 REM STRAWBERRY 

3882 DATA 0,0,9,8,0,;0,18,7 

9884 DATA 8,9, 24, 24,48, 32, 36,628 
3886 DATA 15, 27,63,;62,55,61,31,12 
9888 DATA 68,62,55,63,59,63;,55,62 


BOOTS 


it a moment" 

175 DIM S%C183,4),X$035),N%033),0$C18 
3), 6$(30),U$(3),B*038, 13,N$(33) 

188 FOR H=1T051 :READO$(H) :FORD=1T04:R 
EADS*(CH,D) :NEXTO,H 

185 FOR H=1T016:READG$(H),B*CH, 1) 2=NEX 
+ 

187 FORH=1T022 :READN$(H),N%CH) =NEXT 
188 CLS 

189 INK? 

138 REPEAT 

208 IF Px=S@ANDU%=1THENW%=Wxt+] cPx%=51: 
K=1 

21@ IFP%=S@ANDLI¥ <> 1 THENPRINTCHR$(129) 
“Whoops....1l’ve forgotten. the ring. "!K 
2] 

228 [FP%=14ANDAE=1 THENGOSUB327@ 

238 GOSLUIB2550:REM FIND SCORE 

248 PRINTCHR$C1313"I am :-" 

242 PRINTQ$(P*) 

243 AS="" SIF SXCP%,1I>@THENAS="North" 
258 IFS*C(P%,2)>@ANDLENCA$)>@THENAS=AS 
+", South" 

255 IFS*C(P%,2)>@ANDLENCA$)=OTHENAS="S 
outh”" 
268 IFS*(P%,33>@ANDLENCAS$ )>@THENAS=AS 
#° 5 East” 
265 IFS*(P%,3)>GANDLENCA$)=@THENAS="E 
ast" 
278 IFS*(P%,4)>@ANDLENCAS 1>@THENAS=AS$ 


+",West" 
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275 IFS*(P%,4]>GANDLENCA$) =@THENAS='W 
est" 
288 IFS*(P%,1)=@ANDS*(P%, 2) =QANDS* (Px 
»3)=@ANDS*%(P*%, 4)=8THENAS="'"" 
290 IFP*=4STHENAS="Nowhere.. 
won’t let megggn 

308 IFP*=20RP%=4THENAS=ASt+", In” 

31@ IFP*=8THENAS="Up, Out" ELSEIFP%=9 
THENA$="Down " 

320 [FP*=18THENA$=A$+", Lip” 

325 IFP*=22THENA$=A$+", Down" 

33@ JFP%=460RP%=51THENAS="nowhere 9” 
325 FF=FREC""3J:REM GARBAGE COLLECTION 
358 PRINT :PRINTCHRS$(138)3"T can a0 :- 


. The King 


355 PRINTAS:PRINT:PRINT :PRINT 

36@ E=@:FORT=1TO020:PP%=@:IFB*(T,1)=P% 
THEN PP*%=1 

37@ IF PP*=1THEN 392 

388 NEXT :GOTO418 

398 


IFE=@ THENPRINTCHP$(134)"I can se 
PRINTG$C(T):E=E+1 :GOTO38@ 

41Q@ PRINT :PRINTCHR$(133) "What 
I do "3. 

412 INPUT 2s 

414 BS=LEFT$(2$, 2) :CS$=LEFT$(2$, 3) 

42@ CLS 

422 PRINTCHR$(134)"Hang on a secondg" 
:PING 

438 K=@ 

440 IF CS="ASK"ORCS="SAY"ORC$="TAL"TH 
ENGOSUB349@ 

450 IF C$="O00" THENK=1 

460 IFC$="SCO"THENK=1 :GOSUB255@ 

465 IFC$="EAT"THENPRINT"T’m abso'lutel 
y full and couldn’t eat another thine 
"SK=1 

470 IFC$="RUB"THENPRINT"Don?? 
y nows":K=] 

480 IFC$="DRI"THENPRINT' I?m not thirs 
ty at the moment thank youd" :K=1 

485 IFC$="THR'"THENPRINT" I?m not throw 
ing anything here’":K=] 

4398 IFC$="HEL" THENK=1 :GOSUB258@ 

58@ IFCS$="SAY"ORCS$="SPE"ORC$="TAL" THE 
NPRINTCHRS(1293"0.K...,nobody is liste 
ningg" 

384 IFCS="SAY"ORCS$="SPE"ORC$="TAL" THE 
N K=1 
312 
522 
2988 
53a 
2402 
542 


shou'le 


be sill 


IFC$="RUN" THENK=1 :GOSUIB2910 
IFC$="WEA"ORCS="TRY" THENK=1 :GOSUB 


IFC$="PRA"ORC$="CRY"THENK=1 :GOSUB 


IF CBS="N"ORLEFT$(2$,4)="GO N"JAND 


S*(P%, 1) <>@THENP*%=S4(P%,13:K=1 

55@ IFCBS="S"ORLEFT$(24,4)3="GO S"JAND 
S*CP%,2) OBTHENP*=Sx%(P%,2) tK=1 

360 IFCB$="E"ORLEFT$(2$,4)="GO E"JAND 
S*40P%, 3) <>@THENP%=Sx(P%, 3) 2K=1 

57Q IFCBS="W"ORLEFT$(2$,4)="GO W" JAND 
S*¥CP%,4) <>BTHENP*=S%0P%,4) :K=] 

586 IFBS="RE"THENPRINT"CATS can’t rea 
© you knowg la" sK=]} 

585 IFCBS="N"ORBS="S"ORBS="E"ORBS="W" 
JANDK<>I1THRENPRINT'T can’t 90 that way? 
"3K=] 

508 IFC$="PHO"THENPRINT"How can I do 
That here dummy99" :K=] 

610 IFC$="ENT"ORCS="DIN"ORC$="FEE"ORC 
$="'_UN"ORCS$="BAN" THENK=1 :GOSUB3632 

62@ [FBS="P]"ORBS="FU" THENK=1 :GOSUB32 
6a 

638 

648 


IFC$="HID" THENGOSLIB3420 
IFC$="BUY"THENPRINT"What do you t 
hink I am..made of money?" :K=1 

652 IFC$="INU" THENGOSUB2@72a@ 

668 IFC$="ROW"ORCS="SAI"THENPRINT" Jus 
how am I supposed to co that?" :K=1 
665 IF2@$="GO BOAT" THENPRINT"Don’?+ be 

such an idiot@’":K=1 

678 IFBS="UP"ORBS="U "ORC$="CLI"ORZ$= 
"60 UP" THENK=1 :GOSUB117@ 

680 IFC$="DOW"ORBS="D "OR2$="GO DOWN” 
THENK=1 :GOSUB121@ 

69@ IFC$="OUT"OP BS="0 "ORZS="GO OUT" 
THENK=1 :GOSUB1260 

706 IFCBS="IN"ORZ$="GO IN" JANDK=Q@THEN 
K=1:G60SUB1318 

718 IFC$="PUS"THENK=1 :GOSUB2812 

720 TFCS="WAS" THENPRINTCHR$(134)3"1?m 
Nov a servant you know2" iK=s1 

230 IFCS$="DAN"THENPRINTCHR$(131)"0.K, 
novody seems 40 appreciate my" 

731 IJFCS="DAN" THENPRINTCHR$(131)"danc 
ing though8" :K=] 
740 IFC$="RID"ORZ$="GO RIDE" THENPRINT 
"not sK=] 

75@ IFC$="WAI" THENK=1 :GOSUB286a 

760 IFC$="J'IM"ORCS$="DIU" THENK=1 :GOSUB 
2840 

7276 IFCS="GET"ORC$="TAK" ORCS$="GRA" THE 
NK=1 :GOSUB1520 

780 IFCS="DRO"ORCS$="LEA" ORC$="PUT" THE 
NGOSUB187@ 

738 IFC$="SWE" THENPPINTCHR$(131)"Don? 
S be git! byvd" eked 

806 IFCS="OPE"THENPRINT "not 
B18 
220 
832 


4 


Baa AS 


yet OU" iK=] 
IFC$="JJN_" THENK=1 :GOS!JB338@ 
IFCS="KIS"TFPENK=1 :GOSUB217@ 
IFCS$="GTU" THENGOSHB2196 
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84@ IFC$="EXA™THENPRINT'I can?t 
nything special’ :K=j 

85@ IFCS$="SEA" THENGOSUB2522 

868 IFC$="KIL"ORC$="SHO"ORC$="ATT’ ORC 
$="DES" THENGOSIIB2218 

865 IFC$="SWI'THENPRINT"I haven’?t 
rnt to swim yet&"iK=1 

870 IFC$="PUL"THENPRINT"I can’t do *#h 
at just yet" iK=1 

888 IFK<>1THENPRINTCHR$( 135) 5" 
aid that I can’t understand" 
882 IFK<>1THENPRINTCHR$( 135) ;"yvou..we 
il cats do only have a limited” 

884 IFK<>1THENPRINTCHRS(135)3"Vvocabul 
ary you know 9" 

898 UNTILW*=19 

988 GOTO 1080 

91@ END 

92@ REM XxX FOLLOWING LINES ARE ALL SU 
BROUT INES 

9939 REM WIN ROUTINE 

18008 CLS 

1885 PRINT:PRINT:PRINT :PRINT:PRINT:PR 
INT :PRINT +PRINT =?PRINT :PRINT 

1010 FORX=1TO2 

1A2@ PLOT1,X,X:PLOT2, xX, 14 
1@3@ PLOT12,X%, "WELL DONE 
1031 NEXT x 
1832 FORX=7TO8 
1033 PLOT1,X,xX-4:PLOT2, xX, 14 
1848 PLOT3,X,"You nave solved this ad 
venture," 
1850 NEXT 
1060 PRINT" 
T’s son to" 
1978 PRINTCHRS$(131) "MARRY 
ul princess," 

1@8@ PRINT" You ali 
after in the" 
1@9@ PRINTCHR$C131) "ROYAL PALACE with 
the new PRINCE and“ 

1@95 PRINTCHRSC131) "PRINCESS?" 

110@ RESTORE 

1185 FOR T= 1 TO 34:READ X 

1116 MUSIC1,3,X%,@ 

1115 PLAY1,@,4,50@ 

1120 WAI11@ 

1125 NEXT 
1130 PLAY2,@,9,¢a 

114@ PLOT1,22,1:PLOT2,22,"Wou'd you 
ike another game ? <Y/N>" 

1142 REPEAT 

1144 GETT$ 

1146 UNTIL T$="Y'ORTS$="N" 

1148 IFT$="Y"THEN PRINTCHR$(17) :RLN 
115@ END 


see 6 


lee 


peg 


You nave helped the Mille 
the beauti f 


iive happily ever 
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116@ REM xx GO UP 

1170 K=i 

11725 IFP*=8THENPRINT"O.K. 
steps" :P%=9:RETURN 

1186 IFP*#=18THENPRINT'O.K. 
e stairs." :Px%=22:RETURN 
“190 PRINTCHR$(131)"Now then...don?* 
be sillyg" 

1195 PRINTCHR$C130)"T can?+* 
ere?" :RETURN 

12800 REM xk DOWN ROUTINE xx 
1218 K=1i 

1220 IFPZ=STRENPRINTCHR$(C138)"I climb 
down the steps$":sP%=8:RETURN 

123@ IFP*=22THENPRINTCHR$(129)"0.K. I 
90 down." :P%=18:RETURN 

1240 PRINT"I can’t do that 
CHR$C131)"STUPID9" :K=1 :<RETURN 
125@ REM xx GO OUT xx 

1268 K=i 

1270 IFP*=21THENP%=4:PRINT"O.K. I go 
out" =RETURN 

1288 IFP*=8THENPRINT"O.K, “3 P%=2:RETUR 
N 
1298 
ETURN 
1388 
1318 K=1 

132@ JFP*=4THENPRINTCHR$C131)"I 90 in 
+o the shop" :P%=21 -RETURN 
1338 IFP*=2THENP%=8:PRINT'"O.K." =RETUR 


I climb the 


I climb th 


do 2 


just yet" 


PRINTCHRS$(134) "NOT NOW STUPID" :R 


REM xx GO IN ROUTINE 


NY 
1335 PRINT"“NOT HERE 

134@ DATAoutside an old rundown mill, 
2335733 

1341 DATAoutside an old barn.;@,1,0,0 
1342 DATA on an overgrown footpath. ;,@ 
14,158 

1344 DATA outside 
:0,9,@2 
1346 DATA 


the village shop,.,3 


inside the old mill. It is 
tu tL oa¢ cobwebs.5,1,6,0,@ 

1358 DATA in the Living quarters, 
s deserted.,5,8,18,@ 

1355 DATA in an overgrown garden.,49,@0 
»11,1 

136@ DATAinside the old barn. A 
yr leads upto the hayvloft.,8,8,;8,@ 
1365 DATAinside the hayloft. The 
er leads down from here. ,@,0,0,2 
1378 DATA in a bedroom. [t’s thick wi 
th dust.;9,8,0;,6 

1375 DATA on a narrow footpath, [ft is 
too mudy to go EAST without boots. 
1377 DATAG,8,8,7 

1382 DATA by a rapb:t 


Soe? 


ladde 


ladd 


hoie,9,13;,;@8,11 
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1398 DATA outside an old castle; Tne 
guards willnot* Let me pass South, 

1392 DATAI2,8@,@,@ 

1395 DATA in an eerie courtyard. The 
guard won’tiet me go North.;8@,15,8,9 

1397 DATA at the entrance to the King 
*s chamber,14,18,16,19 

1408 DATAat the Northern end of the K 
ing’s chamber.,@,17;,;0,15 

1482 DATA at the King’s bedside, 

targe dogs prevent me going East. 
1404 DATA 16,8,¢8,@ 

1410 DATA at the bottom of some steps 
5!15,8,8,8 

1412 DATA on a footpath 
“he counitry,@,20,15,@ 
1415 DATA on a bracken covered hilisi 
de. There are pheasants to be seen, 
1417 DATA 19,8,8,2 

1428 DATA inside a small 
«14,0;,;8,2 
1422 DATA at 
»23;8,0 
1424 DATA 
327 

1425 DATA 
323 
1426 DATA 


Two 


4 


into 


leading 


village shop 


the top of some steps.,9 


in a long passage.,22,26, 24 


in & narrow passage. ;8,9,25 
in @ small dusty room. Ever 
ything is covered with sheets. 
1428 DATA @,8,8@,24 

143@ BATA on the battiements. i 
ields in the distance.,23,8@,0,@ 
1435 DATA in a passage. ;,@, 28,23, 29 
1436 DATAin an empty chamber.,27,8,2@, 


see f 


Q 
1438 DATA 
furniture, 
144@ DATA 
31,17 
1445 DATA in a backyard (by the royal 
dustibins9).,,0,32,8,3@ 

1448 DATA on a footpath.,,31,33,9,8 
145@ DATAby a locked gate.,32,9,9,9 
1452 DATAby the river banks.,33,;35,0, 


in @ Large room full of oid 
359,;80,27,@ 


in the royal kitchens.,@,@, 


@ 


1455 DATA on the banks of 
The miller’s son 
re 

1457 DATA3S, 36,8,8 

14593 DATA by some shrubs.,35,8,8,@ 

146@ DATA ina 
337 

1462 DATA on a footpath outside a cot 
tage.;40,39,8,@ 

1464 DATA inside 
GRE?’S cottage. 


the 
is swimming he 


river. 


the doorway of the O 
The EVIL OGRE is A 


Large meadow. ,37,37,37— 


ere 

1466 DATA38,8,9,9 

1468 DATAin a 
cod. ,39,90,@0, 41 

1463 DATAin a passage.,42,8,48, 43 

14728 DATA Large Living room. ,@,4 
1,;80,0 

1472 DATA at the entrance to 
e.,;8,80,41,44 

1474 DATA by the Ogre’s cottage, 
miller’s sons; 
t 


large kitchen full of f 


in a 


the hous 
The 
Princess and King awai 


1476 DATAG,8,43,¢ 
1488 DATA seated in 
with Kings 
on 

1482 DATA @,8,9,@8 
1484 DATA riding 
with the King; 
on 

1486 DATAG,2@,0,¢a 
1488 DATA in a stationary carriage. ,@ 
:9,48,0 
149@ DATA 
549,0,8,47 
14933 DATA 


the banquet hall 


the Princess & Miller’s sg 


in the royal carrage 
Princess & miller’s gs 


outside the village church, 


the aisle, 
the ring Q 


walking down 
ope | remembered 
1495 DATA @,48,0,5@ 
1496 DATA at the altar. The King; the 
princess and the miller’s son are he 
re 
1498 
158@ 
1519 
1526 
{522 
1538 
1542 
155@ 
L555 
NE%=] 
156@ NEXT 

1570 IFE*=@THENPRINTCHR$(130)"I don?t 
see it here§"sPING:K=1 2:RETURN 

1588 IFR=1ORR=2THENPRINTCHR$(134)"Do 
you have to be so stupid?" :K=1:RETURN 
1598 IFR=11THENX$(1)="I cut myself to 
death?" :F=FREC"" ) :GOSUB2232@ 

1680 JFR=12THENPRINTCHR$(13@) "Not 
ely? oO" :kK=] -RETURN 

161@ IF CR=180RR=19)THENU*=1 

1628 IFR=STHENAA=1 

1638 IFR=60RR=77HENAC=1 

164@ IFR=8THENAD=1 

165@ IFR=8ANDSA=@THENW*S=W%4+1 2SA=1 
166@ TFR=STHENGOSJB319@:IFAE<> 1 7HENRE 


DATA 6,8,49,0 

DATA at the wedding,8@,8,8,@ 

REM *xX GET ROUTINE 

K=1 

GOSHB 1798 

IFL% <> 1 THENRE TURN 

E%=0 

FORH=17T016 

IFB4CH, 1J=P<*ANDB*(N*¥(R),1)=P*THE 
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TIJRN 
167@ IFR=1Q@ANDAD <> 1 THENPRINTCHRS( 138) 


need"CHR$(134)"a bag to catch i* in 


1673 IFR=1@ANDAD <> 1 THENRE TURN 
1675 IFR=1@THENAF=1 
1680 I[FR=227THENAG=1 
169@ JFR=14THENPRINTCHRSO131)"I'?d nee 
d a spade ta do thai’" sRETURN 

178@ IFR=13THENAH=1 


1718 IFR=150RR=16THENPRINT"DON’T BE A 
DUM DUMS" :K=1 :RETURN 

IFP*=21ANDCR=30RR=4 JANDAA<> 1 TREN 
31)"Tnhe assistant won’? ler 


1728 
PRINTCHR$(C 1 
me" 
1722 IFP*=21ANDCR=30RR=4 JANDAA <> 1 THEN 
K=1:RETURN 
173@ IFR=30RR=4THENAB=1 
1740 Ex=@ 
1742 FORD=1T03 
1745 IFUS(DJ=""THENU$(D)=G$C(N*CRIJ AEX 
=1:D=6 
1758 NEXT 
1755 IFE*=@THENPRINT" I’m sorry my han 
ds are full?" sK=1?RETURN 
1770 B*XCNZCRI,1)=8:K=1 =RETURN 
178@ REM xk CHECK IF ITEM THERE xx 
1798 L¢="" 
1795 FORH=1TOLENC2$3 
18@@ IF MID$C2Z$,H,1IJ=" 
(2$, (LENC2$)-H) J ¢H=H+4@ 
181Q NEXT H 
1815 R=@8:L%=@ 
1820 IF LENCL$) <2THENRE TURN 
1825 FORH=17T027 
1838 IFLEFTS$CN$CH),LENCL$J)J=LS THENL4# 
=1]:¢R=H 
1835 NEXT 
184@ RETURN 
186@ REM DROP ROUTINE 
1872 GOSUB1794 
18808 IFL*<>1THENPRINT'I can?t 
+L$2K=1 RETURN 
1885 E*=@ 
1898 FORD=1T03 
1998 IFU$(DIJ=GS$CN*CRII THENUS(DJ="" °E 
x=) 
191@ NEXT 
193@ IFE*<>17THENPRINTI haven’t got a 
"SL$2K=1 2RETURN 
1948 B*C(N*(RI,1)=P% 
195@ CLS 
1968 IFR=STHENAA=2 
1978 IFCR=180RR=19) THENII*=@ 
198@ IFR=30RR=4THENAB=0 
199@ IFR=60RR=7THENAC=2 


“THENL $=RIGHTS 


see 
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20828 
2218 
308 
202@ IFAF=1ANDR=1@THENAF=@ 

2030 IFR=22THENAG=8 

2048 IFR=13THENAH=@ 

2@5@ K=1 

2855 RETURN 

206@ REM Xx INVENTORY ROUTINE Xx 
207@ PRINTCHR$(135)5"1I nave :- 
208@ PRINTCHR$(C134) 5AQ$ 

2090 F%=0 

21@@ FOR H=1TO3 

2118 1FUSCH) <>" THENPRINTUSCH) iF 4=] 
212@ NEXT 

213@ IFF*=@THENPRINT"Not a thing 2" 
2140 PRINT 

215@ K=1?:RETURN 

216@ REM xx KISS ROUTINE 

2178 K=1 

2172 PRINTCHRSC134)"UGHHH cat’s are 
not fond of kissing” ;CHR$C135) "HUMANS, 


TFR=8THENAD=3 
IFP%=127ANDR=1@8ANDSB=@8THENGOSUB33 


tH 


2174 RETURN 

218@ REM XxX GIVE ROUTINE xXx 

2198 K=1 

2195 PRINTCHR$C13133"There’s not much 
T want to give away" :RETURN 

22@@ REM xk DESTROY’KILL/“ATTACK 

2218 K=1:IFP%<>1@3THENPRINT"NOT HERE 
& NOW 2" #K=12RETURN 

2228 REM xk LOSE GAME ROUTINE 

2238 CLS 
2240 RESTORE 
2250 FORX=1TO2 

226@ PLOT1,%,xX:PLOT2,X%,14:PLOTS,%, "TR 
AT?S' DONE.TT geo oeox” 

2270 NEXT 

2288 PRINT:?PRINT?PRINT:PRINT :PRINT:PR 
INT? PRINT 

2285 PRINTX$C1) 

229@ PRINT:PRINT:PRINT SPRINTCHRS(C131) 
"The KING is very SAD to see me 
my Life” 

2300 FORT=1T0O34:READX 

2302 MUSIC1,3,%,@ 

2304 PLAY1,90,4,5@80 

2306 WAITIG 

2308 NEXT 

2318 PLAY @,0,0,¢0 

2320 PRINT:PRINT:PRINT 

2322 PRINTCHR$C131}3"Do you want 
er game ? <YZN>" 

2338 REPEAT 

2335 GETAS$ 

2340 UNTILAS=" T° ORAS="N" 


lose 


anoth 


PUSS IN BOOTS 


2358 
2368 
Go" 
2365 
2338 
2408 
2405 ZAP :WAITI@:PING 

241@ IFP*<28 THENPRINTCHR$( 134) "Noth i 
ng happens?" :RETURN 

2420 IFAX<>@THENPRINT"I CAN ONLY GET 
TRANSPORTED TWICE?" 

2438 IFA*%>2THENRE TURN 

244@ PING:WAITI@:2AP 

245@ IFP*=28ANDA% <> 2THENA*Z=A% +1 2 P%=49 
!PRINT"WOW I’? UE BEEN TRANSPORTED 2" :RE 
TURN 

2470 P*x=28 

2488 IFA*<2THENPRINTCHR$C129)"WOW I?’v 
e been transported’?":S*(28, 13=0 

2485 IFAX<2THENG$(28)="In an empty ch 
amber. The door North islocked." 

2486 FF=FREC""} ?REM GARBAGE COLLECTIO 
N 
2498 
2500 
2518 
2520 K=1 

2522 PRINTCHR$(132)"T 
hing special?" 

2530 RETURN 

254@ REM xx SCORE SUBROUTINE 

255@ PRINTCHR#$(129) "You have scored " 
3Wx5" out of 18" 

256@ RETURN 

2570 REM xk HELP ROUTINE 

2588 K=1 

259@ IFP*=21THENPRINT"“The shop assist 
ant is not there to give it awayg": 
RETURN 

2600 IFP*=39THENPRINTCHRS$C129) 5"Why n 
ot ask the Ogre if he can turn” 

2686 IFP*=39THENPRINTCHRS$C129) "into"; 
CHR$C131) ;"SOMETHING’" =RETURN 

261@ IFP*=37THENPRINTCHR$(129)"The me 
adow is so large that I will " 


IFA$="Y" THEN RUN 
PRINT :PRINT" THANK YOU FOR PLAYIN 


END 
REM*k PRAY 7 CRY ROUTINE xx 
K=1 


Ax=A%+1 
RETURN 
REM *xX SEARCH ROUTINE xx 


can’t see anyt 


2615 IFP*=37THENPRINTCHRS$C131) "need t 


o RUN if I am to get anywhere" :RETURN 
2620 IFP*=12THENPRINTCHR$(129)3;"I do 
believe that rabbits are fond of" 

2625 IFP*=12THENPRINTCHRS$C 131)" lettuc 
ee?" =RETURN 

2638 IFP*=20RP*=4THENPRINTCHR$(C 138) 5" 
Why not g0 in ?COS:RETURN 

2640 IFP*=21THENPRINT"Why not go OUT? 
"TRETURN 

265@ IFP*=220RPZ%=STHENPRINT'I’?d 90 DO 


WN 2" RETURN 

2660 IFP*=BO0RPX=18THENPRINT"Why not 9 
o UP ?" ¢RETURN 

2670 IFP*=46THENPRINT"There’s nathing 

much to do here exceptWAIT?" :RETURN 

2686 IFP*=14THENPRINT"The guard will 
not let me 90 in if I" 

2685 IFP*=14THENPRINT"“don’t bear a gi 
tt for the King" :RETURN 

269@ IFP*=17THENPRINT"The King 
y fond of PARTRIDGES" :RETURN 

270@ IFP*=44THENPRINT"Why not"CHR$(13 
LJ"ENTERTAIN"CHR$C1 29) "the King" 

2705 IFP*=44THENPRINT"as your guest i 
n the Ogre’s cottage." 

2706 IFP*=44THENPRINTCHR$C131)5"Who k 
nows what might happen?" :RETURN 

2710 IFP*=13THENPRINTCHR$(C.129) "The 9u 
ards only let visitors with" 

2714 IFP*=13THENPRINTCHR$(131)5"GIFTS 
"CHR$C129)"0 f"CHR$C131)"RABBITS"CHR$C1 
S13 "in" 

2715 IFP*%=13THENRE TURN 

2720 IFP*=4STHENPRINT"The Miller’s so 
n seems to be getting " 

2722 IFP*=4STHENPRINT"on well 
e beautiful Princess." 

2725 IFP*=45THENPRINT"I think I’d Jus 
t WAIT around awhile?" 

2727 IFP*%=45THENRE TURN 

2738 IFP*=35THENPRINT"The King will b 
e tiding by shortly yg" 

2735 IFP*=35THENPRINT"Why not hide th 
e clothes?" :RETURN 

274@ IFP*=36THENPRINTCHR$(C131)'"Those 
BUSHES look good for hiding" 

2745 IFP*=36THENPRINTCHRS$C1I31) "things 

ing" :RETURN 

2750 IFP*=28THENPRINTCHR$C129)5"A WED 
DING RING would come in useful?" :RETUR 
N 

2768 IFP*=S@THENPRINT"When I forget s 
omething I often"CHR$C131) "PRAY 3g" 

2765 IFP*=S@THENRE TURN 

2770 IFP*=3@THENPRINT"Dont touch the 
KNIFES" :RETURN 

2771 IFP*=66THENPRINT"The Princess Li 
kes chocolates?" :RETURN 

2788 IFP*=33THENPRINTCHR$C129) ;"Have 
you remembered the KEY?" 

2785 IFP*=33 THEN RETURN 

2730 PRINT"I’m sorry I don’t 
tue” =RETURN 

2880 REM XxX PUSH ROUTINE 

28198 K=1 

2820 PRINTCHR$(135)"Do you always hav 


is ver 


with th 


have ac 
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e to be so silly?" 

2825 RETURN 

283@ REM xXx JUMP ROUTINE 
2848 K=1 

2845 PRINTCHR$(133) "Not 
ht break my neck#" :RETURN 
285@ REM Xx WAIT ROUTINE 
2868 K=1 

2865 PRINTCHR$(134)5"0O.K.” 
2866 WAIT 72 

2870 IFP*=46THENPRINT"O.K., 
ge comes to rest and 
si 

2872 IFP*=46 THEN P%=47:RETURN 
2880 IFP*=45THENPRINT"Well that 
to have done the trick" 

2882 IFP*¥=4STHENPRINT"The Miller’s so 
nN proposes marriage to " 

2884 IFP*=45THENPRINT"the beautifui P 
rincess and she accepts" 

2886 IFP*=4STHENPRINT"The King puts 
e into a carriage" 

2888 ITFP*=45THENP*=46 :RE TURN 

2890 PRINT"NOTHING SPECIAL HAPPENS": 
E TURN 

2988 REM *xk RUN ROUTINE 

2910 K=1:IFP%*<>327THENPRINTCHR$C131)"1 
%m too tired to run?" RETURN 
2928 P%=38 

2922 PRINTCHR$(1293"0.K. IT run 
t as I cang" 

2925 W*=W%+1 2 RETURN 

293@ REM xx VISIT BY ROYALTY xx 
2935 K=1 

2348 PRINTCHR$C131)5"“His Royal 
ss has come to visit" 

2945 PRINTCHR$C 130) "me in 
cottage which IT have" 

295@ PRINTCHR$C129) "taken over 
at the Ogre is deadg" 

2951 PRINTCHR$(C134)5;"He seems puzzled 
ggg" 
2955 PRINTCHR$C 133) 3;"and keeps on mut 
tering *CATS CAN’T " 

23957 PRINTCHR$(C133) 3"TALK 
ey?" 

296@ RETURN 

2970 REM xk WEAR ROUTINE 
2980 K=1 

2998 IFAB=1THENPRINT'O.K. 
the boots9" 
2995 IFAB=1THENFORH=1TO3:IFU$CHJ="a p 
air of boots" THENU$CHJ="" 

3800 IFAB=1THEN NEXT:AQ$="a pair of b 
cots:- worn plus" “ 

3804 IFAB=1THENAB=3:S4(11,3)=12:W*%=Wx% 


Likely? I mig 


The carria 
they all get ou 


seems 


as fas 


highne 


the Ogre’s 


now th 


I will wear 
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+1 >RETURN 

3018 PRINTCHR$C131)"NOT YET 
E TURN 

3058 REM xx PREVENT PLAYER INSULTING 
COMPLITER 

3068 CLS:kK=1 

3865 FORX=1TO2 

3078 PLOT@,X,X:PLOT1,X%,14:PLOT2, x, "HO 
W DARE YOU SPEAK TO ME LIKE THAT3" 
3875 NEXT 

38808 WAIT 200 

309@ x$(1J="The King’s soldiers arres 
t me for using foul tanguage" 

3188 ZAP:WAIT 1@:PING 

311@ FF=FREC"'3:REM GARBAGE COLLECTIO 
N AFTER CHANGING VUARTABLE 

3128 GOTO223a 

3138 DATA A shop assistant, 21 

3131 DATA a pair of boots,;21 

3132 DATA some coins;1@ 
3133 DATA some lettuce 
3134 DATA an cid bag;9 
3135 DATA a fat rabbit,12 

3136 DATA a partridge; 20 

3137? DATA a rusty knife; 3a 

3138 DATA a dead rat,25 

31339 DATA the miller’s sons clothes,3 


Q0g00 Ws 
sae 


leaves,/7 


3146 DATA some bushes; 36 

3141 DATA the EVIL OGRE, 39 

3142 DATA some fooda,42 

3143 DATA a gold wedding ring,28 

3144 DATA the palace guard,13 

3145 DATA a key,29 

3168 DATA SHOP,1,ASSISTANT,1,;PAIR,2,B 
OOTS;2 

3161 DATACOINS,3,LETTUCE,4,LEAVES,4,B 
AG, 5,RABBIT,6,PARTRIDGE, 7? 

3162 DATA KNIFE,8,RAT,9,CLOTHES, 18 
3163 DATA BUSHES; 11,0GRE,12,EVIL,12 
3164 DATA FOOD, 13,WEDDING,; 14,RING,; 14 
3178 DATA PALACE, 15,@GUARD,15,KEY,16 
3188 REM *k CATCH RABBIT ROUTINE xx 
3198 K=1 

3200 IFAE=1THENRE TURN 

3210 IFAC 1 THENPRINTCHR$(134)"I need 
something to entice the rabbit" 

3220 ITFAD<> 1 THENPRINTCHR$(134)"I need 
a bag to catch it with 9" 

3236 IFCAC=1ANDAD=1) THENPRINTCHR$(13]1 
J"T put some tettuce leaves in the bag 


3232 IFCAC=1ANDAD=1) THENPRINTCHR$(131 
J"and the rabbit rushes over?" 

3234 IFCAC=1ANDAD=1)THENPRINTCHR$(138 
I"IT quickly trap the rabbit?" :AE=i1 
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© 3249@ IFAE=1THENS*%013, 2)=14:Q0$(13)=LEF 
T$(Q$(13),21) :F=FREC' "3 =RETURN 

3244 RETLIRN 

326@ REM xX GIFT ROUTINE 

3270 K=1:W*=W%+1 tAE=@:FORX=1T03 

3272 IFU$(XJ="a fat rabbit" THENUS(XJ= 
“ UOPPS=FPREC'') 

328@ NEXT 

329@ PRINTCHR$(129)"The guard takes m 
y gift from me and 
King?" 

3308 PRINTCHR$(1383"He is very please 
d and asks fora “CHR$C129)""PARTRID 
GE” 

331@ RETURN 

332@ REM xx GIFT ROUTINE 

3338 K=1 

3335 IFAF<>1THENPRINT"I don’t have it 

to give" :RETURN 

3348 PRINTCHR$(134)"The King 
e and calls his dogs" 

3342 PRINTCHR$(134) "out of the way to 

iet me pass." 

3345 S%017,3)=3¢8 

3358 SB=1 

3360 W*=Wx+1 

3363 Q$C17)=LEFT$CQ$(17),22) :F=FREC'® 
3 

3365 RETURN 

337@ REM *xk LINLOCK ROUTINE xx 

3380 K=1 

3385 IFP*%<>33THENPRINTCHR$(132)"Not A 
ere 9" :RETURN 

3390 IFAG<>1THENPRINTCHRS$(135)"I need 

the key?" :RETURN 

3488 PRINT"O.K, 
ked" 

3482 Q$(33)="by an open gate." 

3404 S$%(33,2)=34 

3406 Wx=Wrx+1 

3408 RETURN 

3410 REM xk HIDE ROUTINE 

3420 K=1 

3422 IFP%<>36THENPRINTCHR$(131)"I can 
*t hide anything here’" :RETURN 

3438 IFAH<>1THENPRINT"I haven’t got a 
nything worth hiding?" :RETURN 

344@ FORX=1TO3 

3456 IFU$(X)=G$C10) THENU$(XJ=""' 

3455 NEXT 

3456 AH=@:Wx=Wrx+1 

3460 PRINT"The King 
aster (the" 

3462 PRINT"Mi Ll 

he is" 

3464 PRINT" in distress. 


goes to show the 


thanks m 


The gate is now unloc 


rides past your m 


ler’s son) and see that 


He takes your 


master for’ 

3466 PRINT"a ride 
ge and you" 

3468 PRINT"run on ahead." 

3478 K=1:P%=37 :RETURN 

3488 REM xx TALK ROUTINE 

3498 K=1 

3495 IFP*<>339FHENPRINT"NOT HERE 9999" 
RETURN 

3508 IFSD<>@ THEN PRINT"Nothing happe 
ns@" RETURN 

3518 CLS 

3515 PRINTCHR$(129)"0.K. I ask the OG 
RE if he can turn into something el 


in the Royal carria 


se. 

3520 PRINT:PRINT:PRINTCHR$(131)3"He s 
ays *? OF COURSE I CAN?" 

3538 SD=1 

3540 PRINTCHR$(130)5"*Wnat wouid you 
Like me to turn into?" 

3558 PRINT :PRINT: INPUTZ$ :C$=LEFTS$C2$, 
3) 

356@ IF C$<>"MOU"THENX$C13="He turns 
into a TIGER and devours me" :GOTO2230 

35708 CLS:PRINTCHR$C1313"The Ogre turn 
s into a tiny mouse" 

3588 PRINT‘PRINT: PRINTCHR$(129)3"1 po 
unce upon it and kill it 999" 

83585 G$C12)="A dead mouse" 

3586 S%(39,2)=48 

3587 W*x=W%+1 

3598 N$C15)="MOUSE" :N$C16)="DEAD" 

36800 O$(39)=LEFT$(Q$(39),46) 

3605 FF=FREC""): REM GARBAGE COLLECTI 
ON AFTER CHANGING VARIABLES IN ARRAYS 
3618 RETURN 
3620 REM xXx ENTERTAIN KING & GUESTS x 
x 

3638 K=1 

3640 IFP%<>44THENPRINTCHR$(129)"Don?t 

be sillygeQ" 

3644 IFP%<>44 THENRETURN 

3658 W*=We%+1 

3655 P%=45 

3668 PRINTCHR$(131)"0.K." 

3670 PRINTCHR$(129)"I invite the King 

and his daughter " 

3680 PRINTCHR$(129) "into the OGRE’s c 
ottagé. The Ogre’s" 

3698 PRINTCHR$(129)"servants provide 
@ stap up meal and" 

3788 PRINTCHR$(129) "the King 
impressed?” 

3718 PRINTCHR$(131) "He must think my 
master provided it" 

3728 RETURN 


is most 
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3738 DATA a ham sandwich;9, SANDWICH, a 
rusty nail,55;NAIL 

374@ DATA an oid fFile,23,FILE,a cup o 
f tea,56,TEA : 

3758 DATA a goiden crucifix,7,CRUCIFI 
X;a brass ornament; 44; ORNAMENT 

376@ DATA An old brush;45,BRUSH;,an ol 
d tady,37,LADY 

3770 DATA a candile,23,CANDLE 

3780 DATA a diamond tiara,67, TIARA 
3798 DATA an oil can,28,O0IL;a tin of 
cat food,63,FOO0D 

380@ DATA a firelighter,5,FIRELIGHTER 
3a box of matches,6,BOX 

381@ REM xx DON’T BE SILLY 

3828 K=1 

3838 CLS 

384@ FORX=17T02:PLOT1,%,X:PLOT2,x; 14 
38580 PLOT1@,xX%,"Don’t be sillygQg" 
386@ NEXT 

3878 FORX=1TO3 

3880 2AP:WAITIS 

3898 NEXT 

39@Q RETURN 

49380 END 

4999 REM xx INSTRLICTIONS xx 

5@08 GOSUB 558@ 

5005 FORX=3T04:PLOT@,X,X:PLOT1,%,;14:P 
LOT13,X%;"Puss in Boots" :NEXTX 

3810 FOR X = 5 TO 127:PLOT@;,X,27:NEXT 
2815 PLOT2;,;8,"Once upon a time there 
was a miller" 

58286 PLOT2,;9,"who had three sons. He 
was so poor" 

5025 PLOT2,1@,"“that when he died he | 
eft nothing" 

503@ PLOT2,11,"but his mill, his donk 
ey and his cat." 

5032 PLOT1,17,6:PLOT1@,17,"<C> S.W. L 
ucas 1984" 

9@35 RESTORE 

504@ FOR T= 1 TO 34:READ X 
985@ MUSIC1,3,x,@ 

5860 PLAY1,@,4,50@ 

5878 WAIT12 

5@8@ NEXT 

5898 PLAY@,8,8,0 

5200 PLOT@,26,1:PLOT6,26,'"Press 
e Bard to continue" 


<Spac 
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3218 REPEAT 
5228 GETG$ 
523@ UNTIL G¢=" 
3246 GOSUB 558@ 
5258 FOR X=5 TO 15:PLOT@,xX,6:NEXT 
526@ PLOT2,5,"The mill, of course; ha 
d to be left" 
9270 PLOT2;6,"to nis eldest son, the 
donkey to his" 
5288 PLOT2;7, "second and all that was 
left for the" 
5298 PLOT2,8;, "youngest son was his fa 
thers cat." 
P 
s 
P 


5300 PLOT2,1@," 
ster’ said the” 
5310 PLOT2,11,"cat,’9ive me a pair of 
boots anda " 

532@ PLOT2,12,"bag and I shall solve 
all your " 

5348 PLOT2,13, "problems 2" 

3356 PLOT@,26,1:PLOT6,26,"Press <Spac 
e Bar> to continue" 

5368 REPEAT :GETG$:UNTILG$=" 
UB558@ 

5370 FORX=STO15 :PLOT@, XxX, 2:NEXT 

5388 PLOT2,5,"My name is PUSS and you 
are the " 

3398 PLOT2,6,"youngest son of the mil 
ler. You must" 

3488 PLOT2,7,"heip me to help you 9" 
2418 PLOT2;9,"This game follows the f{ 


*Do not worry, dear ma 


"CLS :GOS 


airy story 
2420 PLOT2,1@,"very closely and you a 
re advised to" 

3430 PLOT2,11,"read it 
ck 2 

2448 PLOT1,17,5:PLOT1@,17,."<0> S.W. L 
ucas 1984" 

3458 PLOT@,26,1:PLOT6,26,"Press <Spac 
e Bar> to continue" 

5468 REPEAT :GETG$:UNTILG$="_ ":CLS:RET 
URN 

34993 REM xX GRAPHICS xx 

5508 CLS:FOR x=@ TO 1:PLOT@,xX,3:PLOT1 
+X%,392:PLOT@, X+28, 3:PLOT1,X+28,9 

551@ FOR A =2 TO 38 :PLOTA,X,"G":PLOT 
A; X%+2@0,"F" 

55208 NEXTA,X 

5938 RETURN 


if you get stu 
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3 PAPER? 2558 DRAW-5,5,1 

4 P=PEEKC#26A) :POKE#26A,P OR 8 2568 DRAW@,65,1 

5 REM AURAL 3 NOTATION CC) A.M. THOM 1 2570 DRAW-4,4,1 

983 25398 DRAW-4,-4,1 

6 HIRES :PAPER 3 :INK @ 3884 CLS 

7 GOSUB 58a 3020 FOR A=1 TO INT CRNDC1)X10)+1 
1@ GOSUB 1980 3825 G= 

2@ GOSUB208a 39%e@ READB »AN$,0,N 

3@ END 38349 NEXTA 

5@@ CURSET2@,10,3 3033 REP_AT 

381 NA$="NOTE READINGXXTREBLE CLEF xXx" 3034 2=2%+ 

5S@2 FORA=1 TO LENCNA$) 3037 G=G- 1 

383 CHAR ASCCMID$CNA$,A, 133,951 3038 IFe=1 THENX=4@ 

384 CURMOU 8 ,2,@ 3033 MUSIC1,A,N,@:PLAY1,9,1,5000 
9@6 NEX| 304@ CURSET Kk ,B,;1 

5@7? CURSET 15,1 5,3 3@5@ CHAR7S,@,1 

508 NAS="(C) A.M. THOM 1711783 " 3068 PRINT"What is this note?" 
989 FOR A=1 70 LENCNA$) 3@61 IF G>2 THEN PRINT" (Try "j3AN$3" 
31Q@ CHAR ASCCMID$CNA$,A,13),0,1 oe 

312 CURMOVU 6,8, 3062 GETA$:CLS 

913 NEXTA 3065 RESTORE 

5314 RETURN 3266 PLAYQ,2,0,2 

1888 CLS 3968 IF AS="H"THEN GOSUB4e@0 

1825 REPEAT 3870 IFAS=ANSTHENPING:SC=SC+1:PRINT"C 
1026 M=M+1 orrect,;you have got "3SC3" right" 
1Q@27 FOR xX=1 TO 12 3071 IF SC=1@ AND 2=1@ THEN GOSUB9Q00 
1028 MUSIC 1,2,X,15 3872 IFA$<>AN$THENEXPLODE :PRINT"Wrong 
1029 MUSIC2,3,X%,15 stry again" 

1@3@ MUSIC3,4,xX,15 3073 WAIT200:CLS 

1831 PLAY?,0,0,@ 3074 UNTILAS=AN¢ 

1032 NEXTX 3075 IFX=2@2 THEN GOTO 9190 

1033 UNTIL M=3:PLAY@,@,0,@ 3076 CURSETX,B,1 

1098 PRINT"I# you get stuck on a note 3077 CHAR32,@,1 

press H for Help®% Press a key to star 30793 X=X+18 
t 3888 GOTO 3820 

1095 GETA$¢ 3898 RETURN 

1135 RETURN 4088 CLS:PRINT"Here are the names of 
2000 2LAP:2AP:2AP the notes" :2AP 

2020 CURSET @,4@,1 4825 PAPER3:INK@ 

203@ DRAW 239,@ ,1 4040 CURSET @,130,1 

2040 CURSET 239,50, 1 4050 DRAW 239,@ ,1 

205@ DRAW -239,0, 1 4068 CURSET 239,140,1 

2060 CURSET @, 68 ,1 4065 DRAW -239,0,1 

2070 DRAW 239,@ ,1 4070 CURSET @,15@,1 

208@ CURSET 239,79,.1 4080 DRAW 239,@ ,1 

2098 DRAW -239,@ ,1 4090 CURSET 239,168, 1 

2100 CURSET @,80,1 41@@ DRAW -239,0 ;1 

21180 DRAW 239,0,1 4200 CURSET @,17@,1 

2508 CURSET25,7@,1 4210 DRAW 239,0,1 

25190 CIRCLES, 1 4220 CURSET25, 160, 1 

2520 CURSET15, 7@,1 423@ CIRCLES, 1 

2530 DRAW20,-45,1 424@ CURSET15, 160, 1 

2540 DRAW-5,-5, 1 4250 DRAW2@,-45, 1 


Oric Owner 45 
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DRAW-S;-5;1 8814 DATA 72,"F", 

DRAW-5;5; 1 8815 DATA Opt ace 

DRAW, 65, 1 8816 DATA 82,"D",3,3 
DRAW-4, 4,1 9@8@ CLS:PAPER1 :TEXT 
DRAW-4;-4; 1 9@85 PLOT 1,9,;23:PLOT 1,10,23:PLOTS8, 
CURSET 48,172 51 9,14:PLOT 8,18,14 
H$="00000000000" 9807 PLOT 18,93, "BRILLIANT" 
FORA=1 TO LENCH$) 9@08 PLOT 10,18, "BRILLIANT" 
CHARASCCMID$CH$,A;,133,0;1 90893 PLOT1,12,23:PLOT2,12,"YOU GOT IT 
CURMOV18,-5,1 ALL RIGHT,WITH NO HELP" 
NEXTA 9018 REPEAT 

CURSET 48,185; 1 9@2@ M=M+1 
HN$="DEFGABCDEFG" 9838 FOR N=18@TO 105 
FORA=1TO LENCHN$) 9035 PAPER INTCRNDC1)X6)+1 
CHAR ASCCMIDS$CHN$,A;,1)3,0,1 9@4@ SOUND 1,N,15 

CURMOU 18,@,1 9@5@ SOUND 2,N-1@, 15 

NEXTA 9@6@ SOUND 3,N-2@,15 

WAIT 10@:CLS 9Q7@ PLAY 7,8,9,@ 

GOT03833 9888 NEXTN 

RETURN 9@9@ UNTILM=1@0:PLAYQ,9,9,2 
DATA 32;,"G"54,8 9188 FOR X= 1T05@ 

DATA 37,"F",4,6 928@ SOUND1,%x,15 

DATA 42,"E",4,5 938@ SOUND 2,X+5,15 

DATA 47,"D",4,3 98408 SOUND 3,X+18,15 

DATA 52,"C",4,1 958@ PLAY7,1,9,2@ 

DATA 57, "B",3,12 9688 NEXT X 

DATA 62,"A',3,12 96@5 PAPER? 

DATA 67,"G",3;8 9788 PLAY@,@,98,@:RUN 


MUSIC TUTOR 2 


4 P=PEEK(#26A) :POKE#26A,P OR 8 1038 MUSIC3,4,xX,15 

5 REM AURAL 3 NOTATION (C) A.M.THOM 1 18031 PLAY?7,98,8,@ 
983 1832 NEXTX 

6 HIRES :PAPER 3 >INK @ 1033 UNTIL M=3:PLAY@,2@,0,0 
? GOSUB 508 1898 PRINT"If you get stuck on a note 
1@ GOSUB 1800 press’H’ for HELP.Press a key to start 
28 GOSUB2Z082@ w 

38 END 1995 GETA$ 

5@@ CURSET2@,19,3 1135 RETURN 

5@1 NA$="NOTE READINGXTREBLE CLEFXLEG 2088 LAP :2AP:2AP 
ER" 2020 CURSET @,4@,1 

502 FORA=1 TO LENCNA$) 2038 DRAW 239,@ ,1 

5@3 CHAR ASCC(MIDS$CNA$,A, 133,851 2048 CURSET 239,50, 1 

5@4 CURMOU 7? ,8,8 2058 DRAW -239,8, 1 

5@6 NEXTA 2060 CURSET @, 68 ,1 

5@? CURSET 15,1 ;3 2870 DRAW 239,98 ,1 

508 NA$="(C) A.M. THOM 1711783 " 2080 CURSET 2393,7@,1 

583 FOR A=1 TO LENCNAS$) 209380 DRAW -239,@ ,1 

51@ CHAR ASCCMID$CNAF,A, 133,80; 1 2180 CURSET @,8@,1 

512 CURMOV 6,9,8 2110 DRAW 239,20, 1 

513 NEXTA 2500 CURSET25,7@, 1 

514 RETURN 25108 CIRCLEY, 1 

180@ CLS 2520 CURSET15, 7@,1 

1825 REPEAT 25380 DRAW2@,-45, 1 

1826 M=M+1 2548 DRAW-5,-5,1 

1027 FOR X=1 TO 12 2998 DRAW-5,5,1 

1828 MUSIC 1,2,%,15 2568 DRAW@,65, 1 

1829 MUSIC2,3,%x,15 2578 DRAW-4,4,1 
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2598 DRAW-4,-4,1 CURSET @,17@,1 

3004 CLS DRAW 239,@,;1 

3828 FOR A=1 TO INT CRNDC13X* 8 Jt CURSET25; 160, 1 

3825 G=8 CIRCLES, 1 

3838 READB,C,D,AN$,0,N CURSET15, 16@,1 

3832 NEXTA DRAW2@,-45, 1 

3033 REPEAT DRAW-5,-5, 1 

3036 2=2+1 DRAW-5,5, 1 

3037 G=Gtl DRAWG,65, 1 

3038 IFZ=1 THENX=40 DRAW-4,4, 1 

3039 MUSIC1,0,N,@:PLAY1,@,1,5002 DRAW-4,-4, 1 

304@ CURSET X ,B,1 CURSET 48,122 ,1:DRAW 9,@,1 
3058 CHAR7S,@,1 CURMOVU 9,@,1:DRAWS,@,1 
3051 CURSET X-2,C,1 CURMOV 9,@,1:DRAWS,@,1 
3052 DRAW 8,8,1 CURMOU 9,@,1:DRAWS,@,1 
3853 CURSET X-2,0,1 CURSET 4@,116,1:DRAW 9,0,1 
3054 DRAW 8,0,1 CURMOV 9,0,1:DRAW 9,@,1 
3@6@ PRINT"What is this note?" CURSET 42,110,1:CHAR79,@,1 
3061 IF G>2 THENPRINT" (Try “3ANS5"9 CURMOVU18, 3, 1: CHARS, @, 1 

ae CURMOV 18,3, 1:CHAR739,@, 1 
3862 GETA$:CLS CURMOV 18,3,1:CHAR79,@,1 
3@65 RESTORE CURSET 40,185,1 

3066 PLAY@,@,8,@ HN$="DCBA" 

3068 IF A$="H"THEN GOSUB4999 FORA=1TO LENCHN$) 

3070 IFAS=AN$THENPING:SC=SC+1:PRINT"C CHAR ASCCMID$CHN$,A,1)),0,1 
orrect,;you have got "3SC3" right" CURMOU 18,@,1 

3071 IF SC=1@ AND %=1@ THEN GOSUB3982@ NEXTA 

3872 IFA$<>ANSTHENEXPLODE :PRINT "Wrong CURSET15@,116,1 

stry again" HN$="CBAG" 

3073 WAIT2@@:CLS FORA=1 TO LENCHN$) 

3074 UNTILA$S=AN$ CHAR ASCCMID$CHN$,A,133,0,1 
3075 IFX=202 THEN GOTO 39108 CURMOV 18,@0,1 

3076 CURSETX,B;1 NEXTA 

3077 CHAR32,@, 1 CURSET15@, 18@, 1 :DRAWS,@, 1 
3079 X=xX+18 CURMOU 9,@,1:DRAW 9,@,1 
3888 GOTO 3820 CURMOV 9,0,1:DRAW 39,@,1 
3890 RETURN CURMOU 9,@,1:DRAW 93,@0,1 
400@ CLS:PRINT"here are the names of CURSET186, 186, 1:DRAWS,@, 1 
the notes": ° ZAP CURMOU 9,8, 1:DRAWS,@, 1 
4018 CURSET 12,10@,1 CURSET 152,177,1:CHAR7S,@,1 
9012 LS = "OCC OOOO KKK KKK KKK CURMOV18,3,1:CHAR 79,@,1 
KKK" CURMOV18,3,1:CHAR 79,0, 1 
4014 FOR A=1 TO LENCL$) CURMOV18,3,1:CHAR 79,0, 1 
4016 CHAR ASCC(MID$(L$,A,1)),80,1 CURSET@, 18@,1 

4018 CURMOVU 7,0,1 WAIT1@@:CLS 

40193 NEXTA GOTO3@33 

4048 CURSET @,130,1 RETURN 

48058 DRAW 239,08 ,;1 DATA 22, 28,34,"D",5,3 
4060 CURSET 239, 14@,1 DATA 25, 28,34,"C",5,1 

4065 DRAW -239,@,1 DATA 28,34,40,"B",4,12 
4078 CURSET @,15@,1 DATA 31,34,40,"A",4,18 
4080 DRAW 239,@ ,1 DATA 83,86,40,"C",3,1 

4898 CURSET 239,160,1 DATA 86,86,40,"B",2,12 
4100 DRAW -239,@ ,1 DATA 89,92,86,"A",2,18 
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8013 DATA 92,92,86,"G",2;8 

9080 CLS:PAPER1:TEXT 

9@@5 PLOT 1,9,23:PLOT 1,180,23:PLOT 8, 
9,14:PLOT 8,10,14 

9807 PLOT 18,9,"BRILLIANT" 

9008 PLOT 18,10, "BRILLIANT" 

9089 PLOT 1,12,23:PLOT 2,12," YOU GOT 
IT ALL RIGHT WITH NO HELP" 

9010 REPEAT 

9820 M=MN+1 

9038 FOR N=1@@TO 185 

9835 PAPER INTCRND(C13*6)+1 

904@ SOUND 1;N;,15 


9858 SOUND 2,N-10;,15 
9868 SOUND 3,N-20,15 
9078 PLAY 7,80,8,8 
3088 NEXTN 

9098 UNTILM=10:PLAYQ,@,8,@ 
9100 FOR X=1 TO 5@ 
920@ SOUND 1,X,15 
9388 SOUND 2,X+5,15 
9488 SOUND3,X+1@,15 
9508 PLAY7,1,0,@ 
3680 NEXT X 

9788 PAPER 7 

9880 PLAY@,@,8,@0:RUN 


MUSIC TUTOR 3 


4 P=PEEKC#26A) :POKE#26A,P OR 8 


3S REM AURAL 3 NOTATION (C) A.M.THOM 1 


983 

6 HIRES :=PAPER 3 
? GOSUB 58@ 

1@ GOSUB 18828 

20 GOSUB2800 

3@ END 

980 CURSET2@, 18,3 
5@1 NA$="NOTE READINGXXXBASS CLEF Xxx" 


>INK @ 


53@2 FORA=1 TO LENCNA$) 

503 CHAR ASCCMID$(NAG,A,1II5;0,1 
5@4 CURMOVU 8 ,@,@ 

986 NEXTA 

5@7? CURSET 15,1 ,3 

5Q@8 NA$="(C) A.M.THOM 1711783 " 
5@9 FOR A=1 TO LENCNAS$) 

310 CHAR ASCCMIDS$CNA$,A;, 133,90, 1 
5312 CURMOV 6,8,8 

513 NEXTA 

914 RETURN 

1908 CLS 

1025 REPEAT 

1026 M=M+1 

1027 FOR x=1 TO 12 

1028 MUSIC 1,1,x,15 

1829 MUSIC2,2,xX,15 

1838 MUSIC3,3,xX,15 

10831 PLAY7,9,0,@ 

1@32 NEXTX 

1833 UNTIL M=3:PLAY@,@,8,0 

1098 PRINT"I£f you get stuck on a note 
press’H’ for HELP.Press a key to start 


1895 GET A$ 

1135 RETURN 

2008 ZAP :ZAP :2AP:INKO 
2020 CURSET @,40,;1 
2038 DRAW 239,90 ,1 
2046 CURSET 239,50, 1 
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2058 DRAW -239,8, 1 

206@ CURSET @, 6@ ,1 

2070 DRAW 239,@ 51 

2080 CURSET 239,70, 1 

2098 DRAW -239,8 ,;1 

218@ CURSET @,88,1 

2118 DRAW 239,0,1 

2988 CURSET8,5@,;1 

2910 DRAW 7,;-7;1 

29520 DRAW 5,9@,1 

253@ DRAW 7,7,1 

2948 DRAW -8,20,1 

2998 DRAW -3,2,;1 

2960 DRAW -7,7,;1 

2978 CURSET 28,45,;1 

2988 CURSET 28,55,;1 

3804 CLS 

3828 FOR A=1 TO INT CRNDC13X10)+1 
3825 G=d 
3838 READB 
3832 NEXTA 
3033 REPEAT 
3036 2=z%+1 
3037 G=Gtl 
3038 IFZ%=1 THENX=4@ 

38039 MUSIC1,0,N,0:PLAY1,@,1,5000 

304@ CURSET X_ ,B;1 

385@ CHAR?7S,@,1 

306@ PRINT"What is this note?" 

3061 IF G>2 THENPRINT" (Try "3ANS;"9 
\" 

3062 GETA¢$:CLS 

3865 RESTORE 

3866 PLAYG,8,0,8 

3068 IF A$="H" THEN GOSUB4080 

3078 IFAS=ANS$THENPING:SC=SC+1:PRINT"C 
orrect,;you have got "3SC3" right" 

3071 IF SC=1@ AND 2=1@ THEN GOSUBS8@08 
3872 IFA$<>ANSTHENEXPLODE :PRINT"Wrong 
stry again" 

3873 WAIT20@:CLS 


»AN$,0,N 


MUSIC TUTOR 3 


UNT ILAS=AN$ 4420 NEXTA 


IFX=202 THEN GOTO 9188 4918 WAIT1@0:CLS 
CURSETX,B; 1 49388 GOTO 3033 


CHAR32,@,; 1 5@8@ RETURN 

X=X+18 8806 DATA 32,"B",2,12 

GOTO 380208 8007 DATA 37,"A",2,18 

RETURN 8008 DATA 42,"G",2,;8 

CLS:PRINT"here are the names of 8809 DATA 47,"F",2,6 

tes" :2AP 8018 DATA 52,"E",2,5 

CURSET @,130,1 8011 DATA 5S7,"D",2,3 

DRAW 239,08 ,1 8812 DATA 62,"C",2;1 

CURSET 239,14@,1 8013 DATA 67,"B",1,12 

DRAW -239,@,1 8014 DATA 72,"A", 1,18 

CURSET 9,158, 1 8815 DATA 27,"G",1,8 

DRAW 239,@ ;1 8016 DATA 82,"F",3,6 

CURSET 239,160, 1 3088 CLS:PAPER1 : TEXT 

DRAW -239,2 ,1 9085 PLOT 1,9,23:PLOT 1,1@,23:PLOT 8, 
CURSET @,17@; 1 9,14:PLOT 8,10,14 

DRAW 239,08, 1 3007 PLOT 18,9,"BRILLIANT" 

CURSET 8,14@,1 9808 PLOT 18,10, "BRILLIANT" 

DRAW 7,-7;1 9009 PLOT 1,12,;23:PLOT 2,12,"YOU GOT 
DRAW 5,951 THEM ALL RIGHT WITH NO HELP" 

DRAW?, 7; 1 9@1@ REPEAT 
DRAW -8, 20,1 9820 M=N+1 
DRAW -3,2,1 9030 FOR N=10@8TO 185 

DRAW -7,7;1 93835 PAPER INTCRNDC1)x*6)+1 
CURSET 2851355 1 9048 SOUND 1,;N,15 

CURSET 28,145,1 93058 SOUND 2,N-10,15 
CURSET 4@,172,;1 93868 SOUND 3,N-20,15 
H$="QO0000000000" 9078 PLAY 7,80,0,0 

FORA=1 TO LENCH$3) 9088 NEXTN 
CHARASCCMID$CH$,A, 133,80; 1 9898 UNTILM=18:PLAY@,8,0,2 
CURMOVU18,-5, 1 9186 FOR X=1 TO 5@ 

NEXTA 9200 SOUND 1,xX,15 

CURSET 4@,185,;1 9330@ SOUND 2,xX+5,15 
HN¢$="FGABCDEF GAB" 340@ SOUND 3,X+18,15 
FORA=1TO LENCHN$) 9588 PLAY7,1,0,@ 

CHAR ASCCMID$CHN$,A;, 133,051 93688 NEXT X 

CURMOVU 18,8, 1 9708 PAPER? 

9880 PLAYG,8@,@8,@:RUN 
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4 P=PEEKC#26A) :POKE#26A,P OR 8 ER" 

3S REM AURAL 3 NOTATION CC) A.M. THOM 1 5@2 FORA=1 TO LENCNAS$) 
383 5@3 CHAR ASC(MID$(NA$;A;, 133,051 
6 HIRES :PAPER 3 :INK @ 304 CURMOV 7? ,8,@ 

7 GOSUB 500 5306 NEXTA 

1@ GOSUB 19800 5@7 CURSET 15,1 53 

28 GOSLUB2@00 5@8 NA$="(C) A.M.THOM 1711783 " 
3@ END 5@9 FOR A=1 TO LENCNAS$) 

588 CURSET2@, 10,3 51@ CHAR ASCCMID$CNA$,A, 133,051 
5Q1 NA$="NOTE READINGXXBASS CLEFXXLEG 512 CURMOV 6,40,¢4 
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513 NEXTA 
514 RETURN 


1080 
1825 
1026 
1827 
10828 
1829 
1032 
1031 
1832 
1833 
10398 


press 


CLS 

REPEAT 

M=M+1 

FOR X=1 TO 12 

MUSIC 1,1,;%,15 

MUSIC2,2,X,15 

MUSIC3,3,%,15 

PLAY?7;9,8,@ 

NEXTX 

UNTIL M=3:PLAY@,90,8,0 

PRINT"I# you get stuck on a note 
7H? for HELP.Press a key to start 


GETA$ 
RETURN 

ZAP F2AP = ZAP 
CURSET @,40,1 
DRAW 239,@ ,1 
CURSET 239,58, 1 
DRAW -239,@8, 1 
CURSET @, 6@ ;1 
DRAW 239,@ ,;1 
CURSET 239,70; 1 
DRAW -239,;8@ ;1 
CURSET @,88,1 
DRAW 239,0;1 
CURSET8,5@,1 
DRAW 7,-751 

RAW 5,0, 1 

RAW 7,7, 1 
RAW-8, 20, 1 
RAW-3, 2; 1 
DRAW-7, 7, 1 
CURSET 28,45, 1 
CURSET 28,55,1 
CLS 
FOR A=1 
G=@ 
READB;C,D;AN$,0;N 

NEXTA 

REPEAT 

2=2+1 

G=Gt+1 

IFe=1 THENX=48 
MUSIC1,0,;N,8:PLAY1,0,1,5000 
CURSET X ,B,;1 

CHAR?3,@; 1 

CURSET X-2,C,1 

DRAW 8,2, 1 

CURSET X-2,D;1 

DRAW 8,8, 1 
PRINT"What 


TO INT CRNDC1I* 8 J+1 


is this note?" 
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3861 
ys 
3862 
3865 
3066 
3868 
3878 


orrect,you have got 


3071 
3872 


IF G>2 THEN PRINT" (Try "3AN$3" 
GETA$:CLS 

RESTORE 

PLAY@,0,2,@ 

IF A$="H"THEN GOSUB4Q0@ 
IFA$=AN$THENP ING :SC=SC+1 :PRINT"C 
"5SC3" right" 

IF SC=1@ AND 2=1@ THEN GOSUB9QG@ 
IF A$ <>AN$THENEXPLODE :PRINT"Wrong 


stTy again" 


3873 
3874 
3875 
3076 
3077 
3879 
3080 
3890 
4080 


the notes": 


4012 
4012 
KKK" 
4014 
4016 
4018 
4019 
4040 
4058 
4062 
4065 
4070 
4080 
4038 
41208 
4200 
4218 
4220 
4230 
4240 
4258 
4268 
4270 
4280 
4230 
4300 
4310 
4311 
4312 
4313 
4315 
4317 
4320 


WAIT20@@:CLS 
UNTILA$=AN$ 
IFX=202 THEN 
CURSETX,B,;1 
CHAR32,@; 1 
X=X+18 

GOTO 3020 
RETURN 
CLS:PRINT"here are the names of 
Z2AP 

CURSET 12,10, 1 

L$ = [OOOO OOK KKK KKK 


GOTO 91a 


FOR A=1 TO LENCL$) 

CHAR ASCCMID$(L$,A,1)),0;1 
CURMOVU 7,8, 1 

NEXTA 

CURSET @,138,1 

DRAW 239,@ ,1 

CURSET 239,140, 1 

DRAW -239,0,1 

CURSET @,15@,1 

DRAW 239,08 ;1 

CURSET 239,160, 1 

DRAW -239,0 ,1 

CURSET @,170,;1 

DRAW 239,08, 1 

CURSETS8, 14@, 1 

DRAW 7,-7,;1 

DRAW 5,0; 1 

DRAW 7,7, 1 

DRAW -8, 28, 1 

DRAW -3,2;1 

DRAW -7,7;1 

CURSET 28,135, 1 

CURSET 28,145,1 

CURSET 4@,122 ,1:DRAW 9,@,1 
CURMOU 3,0, 1:DRAWS,@, 1 
CURMOVU 93,8, 1:DRAWS, @, 1 
CURMOU 93,0, 1:DRAWS,@, 1 
CURSET 4@,116,1:DRAW 39,0,1 
CURMOVU 9,8,1:DRAW 9,9,1 
CURSET 42,11@,1:CHAR7S,@,;1 
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CURMOV18, 3, 1 :CHAR79,@, 1 8088 DATA 28, 34,48,"D",3,3 
CURMOU 18,3,1:CHAR79,Q@, 1 8809 DATA 31,34,4@,"C",3;1 
CURMOU 18,3,1:CHARZ9,Q@, 1 8818 DATA 83,86,4@,"E",1,5 
CURSET 40,185,1 8811 DATA 86,86,428,"D",1,3 
HN$="FEDC" 88012 DATA 89,92,86,"C",151 
FORA=1TO LENCHN$) 8013 DATA 92,92,86,"B",8,12 
CHAR ASCCMID$CHN$,A;1)),28,1 9@@@ CLS:PAPER1 :TEXT 
CURMOU 18,0,1 9005 PLOT 1,9,;23:PLOT 1,10,23:PLOT 8, 
NEXTA 9,14:PLOT 8,10,14 
CURSET15@,116,1 9@@7 PLOT 18,9, "BRILLIANT" 
HN$="EDCB" 9@@8 PLOT 18,10, "BRILLIANT" 
FORA=1 TO LENCHNS) 9809 PLOT 1,12,23:PLOT 2,12,"YOU GOT 
CHAR ASCCMID$CHN$,A,1)335,90;1 THEM ALL RIGHT WITH NO HELP" 
CURMOU 18,8,1 981@ REPEAT 
NEXTA 9820 M=M+1 
CURSET15@,18@,1:DRAWS,@,1 3030 FOR N=1@@TO 185 
CURMOU 9,@,1:DRAW 9,0,1 9835 PAPER INTCRND(1)*6)+1 
CURMOU 9,@,1:DRAW 9,8,1 984@ SOUND 1,N,15 
CURMOU 93,8,1:DRAW 9,2, 1 38058 SOUND 2,N-10,15 
CURSET186, 186,.1 :DRAWS, 2,1 9068 SOUND 3,N-20,15 
CURMOV 9,8, 1:DRAWS,@, 1 3878 PLAY 7,8,8,@ 
CURSET 152,177,1:CHAR79,@, 1 3888 NEXTN 
CURMOU18,3,1:CHAR 79,2, 1 9898 UNTILM=1@:PLAY@,0,0,0 
CURMOU18,3,1:CHAR 79,8,1 918@ FORX=1 TO 5@ 
CURMOU18,3,1:CHAR 79,@,1 92@@ SOUND 1, X,15 
WAIT3@@:CLS 9308 SOUND 2,X+5,15 
GOT03033 34@@ SOUND 3,X+10,15 
RETURN 39588 PLAY?,1,0,@ 
DATA 22, 28,34, '"F",3,6 96@Q@ NEXT xX 
DATA 25,28, 34,"E",3,5 97@Q PAPER 7? 

9808 PLAY@,@,8,@:RUN 
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18 REM NOTE READING GAME ‘ A.M.THOM 1 122 K$=KEY$:T=DEEK(63@) :RT=(190@0-T)v 
2712783 10Q@:IFRT> 68THEN GOSUB19000a 

15 CLS 123 CURSET 18@,18@-CINTCRTJ*3) ,1 

16 DOKE 638, 19000 124 FILL 3;9;129 

17 PAPER6:INK@ 128 IF K$=""THEN 122 

2@ GOSUB 5@@@:REM INSTRUCTIONS 123 IF K$<>NAME¢$ THEN 2AP:SOUND 1,CO, 
3@ GOSUB 6@@@:REM DRAW STAVE 18 

35 RESTORE 13@ UNTIL K$=NAME$ :SC=SC+1:PING 

4@ FOR N=1 TO INTCRNDC1)*22)+1 148 CURSET63, 6@, 1 

6@ READ NAME$¢, CO ae 3 GLEF 158 FILL 88,28,64 

61 NEXTN 155 GOTO 38 

65 IF CLEF=1 THEN GOSUB 7@@@ELSE 16@ END 

GOSUB 8882 5@@@8 PRINT:PRINT CHR$(138)SPCC8) 

7@ SOUND 1,C0,1@ "NOTE READING" 

71 PLAY1,;@,;8,@ 5918 PRINTCHR$(138)SPC(8)"NOTE READIN 
2D X=K+58 ar 

8@ CURSET xX,P;@ 5828 PRINT 

3@ CIRCLES, 1 5@3@ PRINT"Here is a short note readi 
121 REPEAT ng game. 
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MUSIC TUTOR 5 


504@ PRINT 8058 DRAW 7,7,1 

5@50 PRINT"You have 68 seconds to nam 8860 DRAW-12,3@,1 
e ' 88728 DRAW -3,-2,1 

5060 PRINT 8080 CURSET X+2@,85 ,1 

5@7@ PRINT"as many notes as you can" 8898 CURSET X+2@,95 ,1 

5888 PRINT:PRINT:PRINT :PRINT 8999 RETURN 

5@9@ PRINTSPC(C3)"Press the <SPACE BAR 3088 DATA"G",78,75,1 
> to start” 3818 DATA "F",88,8@,1 

5@935 GET A$:IF ASCCAS$)J=32 THEN 5188 E 3020 DATA "E",93,85,1 
LSE 5@95 3838 DATA "D",185,90,1 

5180 HIRES :PAPER6: INK@:DOKE63@, 18080 9848 DATA "C",141,95,1 

5999 RETURN 38058 DATA "B",158,198@,1 

6808 X=65:Y=8@ :%=100 3868 DATA "A",141,195,1 

6805 FOR Y=8@ TO 120 STEP 198 9078 DATA "G",158,118,1 

681@ CURSET X,7Y;1 908@ DATA "F",177,11551 

6820 DRAW 2,0,1 3898 DATA "E",188,120,1 

6838 NEXT Y 9108 DATA "D",211,125,1 

6@50 CURSET 178,180, 1 SIV DATA “B" 5 252; 7532 

6@6@ NU$=" 12345" 9120 DATA "A", 283, 88,2 

6@7@ FORA=1 TO LENCNU$) 9138 DATA "G",317,85,2 

6@8@ CHAR ASCCMID$CNU$,A,133,0; 1 3148 DATA "F", 356; 98,2 

68390 CURMNOV2, -38,2 9158 DATA "E",378,95,2 

6100 NEXT 3168 DATA "D",424,108,2 

6208 RETURN 9178 DATA "C",476,185,2 

70@@ CURSET X+10,110 ,1 3188 DATA "B",5@8,118,2 

701@ CIRCLE 39,1 9193@ DATA "A",568,115,2 

7820 CURMOU -18,@0,1 3208 DATA "G",637,128,2 

7030 DRAW 2@,-45, 1 9218 DATA "F",715,125,2 

704@ DRAW -5,-5,1 1Q0@0@ EXPLODE:TEXT:WAITS@ :PLAY@,@,@, 
785@ DRAW -5,;,5,1 Q 

7@68 DRAW @,65,1 10018 PRINT:PRINTSPCC5)"YOU SCORED "; 
70708 DRAW -4, 4,1 SE 5"POQINTS" 

7888 DRAW -4,-4,1 180826 PRINT 

7999 RETURN 18830 PRINT" Press the <SPACE BARD fo 
8@8@ CURSET X+18,90 ,1 r another go" 

8012 DRAW -5,5,;1 10840 GET A$ :IF ASCCA$)J=32 THEN 1885 
802@ DRAW -5,-5,1 Q ELSE 18040 

8038 DRAW 7,-7,1 18@5@ RUN 

884@ DRAW 5,@,1 18868 RETURN 
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The very best in arcade action- 


is brought to you by Tansoft — the specialists of the Oric-1 
BOOK and Atmos Computers. 
g a The games that people are fighting for are:— 
Defence Force: 
Pilot your space-craft 
through alien territory and fight 
off the enemy approaching from 


Ultima Zone: 
Shoot the Walkons, avoid the 
bouncing Brunes and battle 


=o ~ your way through the 
S L3 87) satellite zone. 48K. £8.50. 2 
y FoF LGR, Rat Splat Ui 
= A revolting game. ZY Lp Up 
Splat the rats in the sewer before 
they consume the cheese, and destroy the monsters g) 
before they consume you! 48K. £7.95. J 


or let's get down to business! 


a ‘MAGAZINES (s 


every interest. The ‘not so’ games-minded people may be 
coming to grips with:— 

Author: A powerful word-processor program which 
includes word-wrap and word-count. Ideal for letters and 
reports. 48K. £14.50. 

Oric Calc: A full spread-sheet program allows you to sum 
columns or rows and apply complex formulae. 48K. £14.50. 
Oric Cad: A computer aided design program for displaying, 
rotating, enlarging and shading objects on the screen. 
48K. £9.99. 

For the full range of Tansoft software — which currently 
numbers over 20 titles — pick up a catalogue in your local 
Computer Store or contact Tansoft at Unit 1, 

The Techno Park, 645 Newmarket Road, Cambridge. 

Tel. Teversham (02205) 2261. 


Oric Owner is the official magazine devoted to the Oric 1 and Atmos home computers. 
It's crammed full of in-depth information, advance news on the latest add-ons, superb programs and 


interviews with the engineers who designed it. 


The first issue is absolutely free when you buy your 
Oric, so why not keep ahead of the latest developments 


and subscribe to further issues. A years subscription 


of 6 issues is now only £7.50 (overseas p.o.a) so post 


the coupon today. 


ORIC OWNER SUBSCRIPTION FORM 


Please send me the next 6 issues 
enclose a Cheque fOF.............sssescssseees (cheques payable to Tansoft Ltd) 


PRUNE ects deze acne esp San ese epocans eects osc ese diococb ote pease 3 


PAG OSS iss ccsscizcsscessssacccssacuacestsoncacxasy cosvesatavsites pais SicutanscaSsadayaaavssabtedasacasisesaniniescehexip 


Postcode 


Back issues are available for £1.20 each. If you missed your first 
free issue contact your dealer or Oric Products International who will 
+ Supply you with one. 


“FT” TE EE 
s arm GIF” F Tansoft Ltd, Units 1 &2 


Cambridge Techno Park Newmarket Road, Cambridge CB5 8PB 


Cambridge 


sign Hetlers 
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MICRODRIVE TEST DRIVE 


The legendary, long promised Oric Microdisc drives 
are here and on sale. At £299, they cost a substantial 
sum, but as the saying goes ‘better late than never’. 

When Oric Owner talked to Dr Paul Johnson, chief 
designer of the Oric-1, early last year, he was promising 
5%" discs for the very near future. The brochure 
mentioned availablity ‘in the first half of 1983'. Oric must 
have regretted that early promise many times in the 
ensuing months. 

In those early days, Dr Johnson wasn't even sure what 
format discs were going to be used. He expected they 
would use minifloppy 5%” discs, as they were coming 
down in price so rapidly. ‘We'll go over to microfloppies 
when and only when, we can see which one is going to 
be the clear winner,’ he stated. 

In the end, the microfloppy 3” disc won the day, and it 
is a 3" disc drive unit that Oric have gone for. 

Compared to 5%” discs, the small 3” discs are much 
tougher — an important advantage if you aren't used to 
caring for floppy discs. However, if you have a 544" 
drive, don't despair. It can be connected to a Microdrive 
and controlled by your Oric. 

You are probably wondering what use a £299 disc 
drive unit could be to you. You've been getting on pretty 
well with that £30 cassette recorder until now. Of course, 
there is the problem that some programs take a long 
time to load (remember the adventure game that only 
loaded at the slow speed?). Then there is the problem of 
finding a particular program on a tape loaded with thirty 
programs, when you can't find the list of titles, or 
remember the exact title of the program you are 
searching for. 

Then there was that tape that was chewed up in the 
cassette recorder, and the other game that refused to 
load, and still doesn't. And there was that long program 
you'd written that was corrupted somehow and had 
to be scrapped. Still, that's all part of the joy of 
computing — isn't it? 

A disc drive unit will solve all these problems — and 
give you a whole lot more besides. Basically, it is 
designed to store a huge amount of data, and give almost 
instant access to any part of that data. 

A disc drive contains a head to read the magnetic 
signals on the disc, and a precisely controlled motor to 
rotate the disc, There are plans to make a 
double-headed disc drive — that is for the future. It will 
cost more but saves you having to turn the disc over by 
hand, and gives access to double the files. 

Visually, the Microdisc unit looks very plain and 
simple. It is finished in the red and black Atmos colours, 
with the Oric logo on top. At the front there is a slot for a 
disc and a disc eject lever. At the back there is a 34 pin 
port for a slave drive, a red reset button and a multipin 
power socket. There's a large heatsink too, and a 34 way 
cable connected. A slave disc drive is being planned by 
Hitachi, the Microdisc's designers, but is not in 
production yet. Up to three slave drives may be 
connected to the Microdisc unit. 

The unit comes with a sloping plinth that props up the 
front end and lets the unit sit snugly behind the Atmos, 

a built-in 34 way ribbon cable (with another 34 pin 
socket built-in), one 3” disc and a chunky power unit. 
There's a 52 page manual to plough through too. 

If you're an Oric-] owner — don't fret. The new 
accessory is suitable for your computer, even if the 
colour scheme doesn't match. 


tae: 


Getting going is simple enough. You can discard your 
Oric's power supply unit. The drive’s power unit has 
cables to power a computer and two disc drives. Plug in 
to your monitor and connect it to Oric as normal. Plug in 
the power cables and connect the Microdisc to the Oric 
with the 34 way cable. It fits the longer expansion port of 
the Oric. Turn on at the mains and the system comes to 
life. The Microdrive has no on/off switch. 

The message ‘insert system disc’ will appear on the 
monitor. Slot in the supplied disc, either side up, and a 
light will come on at the front of the unit. This means data 
is being transferred from drive to computer. This up to 
ten seconds, and then the message ORIC DOS V1.1 
appears above the cold start message on the monitor, 
You are ready to roll. 

Unless you have another disc, you'll only be able to 
watch a demonstration program (Microdisc, Atmos and 
Oric-1 in pretty colours) or find out what the DOS 
commands do. You'll need another disc or discs to do 
anything else. Extra discs cost around £5 each. This 
price may come down as companies like Maxell and 3M 
get in on the microdisc act. 

A microdisc is a disc of plastic coated with a metal 
oxide that stores magnetic signals. The whole is 
enclosed in a tough plastic case, except for a hole that 
gives access to the read/write head. A metal plate 
covers the hole when the disc is out of the drive. The 
only risk of damage comes from strong magnetic fields. 

The disc can best be thought of as a record. It has a 
number of tracks — 40 in this case. Hitachi have plans for 
double density discs, with 80 tracks per side, but these 
are for the future. They will double the storage of each 
disc. 

The disc is also divided up into 16 sectors. A particular 
file can thus be identified by specifying the track and 
sector numbers. There are 640 files available, though two 
are used for the title of the disc, leaving 638 files on each 
side of the disc. 

Each file consists of 256 bytes, each byte able to hold 
a character. So, one side of a disc can hold over 160,000 
characters — an enormous capacity. When you consider 
the storage space and the reliability of data transfer, you 
can see why disc drives are so popular with the serious 
computer user. It is not only the storage that is 
appealing. So is the speed of data transfer. With a 
cassette tape, the whole tape has to be played past the 
head, until the relevant program is found. That could 
take many minutes. With a disc drive, you specify the 
track and sector numbers. The read head goes straight 
to that file and transfers data almost instantaneously. The 
data transfer rate is 250,000 bits per second. The transfer 
rate from cassette is a mere 2,400 bits per second. 
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Inside the Microdrive - it is a complicated machine 


That's the theory. What does it mean in practice? We 
loaded the first six listings in this issue on one disc. They 
occupied a total of 203 sectors, leaving 435 free, plus 
another side. We then compared the loading time for 
the Puss in Boots adventure. It took minutes from 
cassette. From disc, it took five seconds! Fast is an 
understatement. 

The first thing to do is to make a backup copy of the 
Disc Operating System (DOS) on the supplied disc. If it 
should be damaged in any way, you are stuck. 

Before any disc can be used, it must be formatted. 
This gives it a name and divides it up into sectors. Insert 
a fresh disc and type in FORMAT 9. The @ identifies the 
drive; you'd use other numbers if you wanted to format 
on a slave drive. You'll then be prompted for the name of 
the disc, and formatting will take place. 

Now, to the backup. Insert the original disc and enter 
IBACKUP @ to @. 

On RETURN, the data loading light will appear and a 
chunk of data will be transferred to a buffer in your Oric. 
When that is full, you will be prompted to remove the 
original disc, insert the back up disc and press RETURN. 
Data will then be transferred to the backup disc, with the 
light indicating that data is being saved. Go back to the 
master disc and repeat this process until the backup is 
complete. If you had two drives, data would be 
transferred directly from one to the other. 

The next thing you are likely to do is to transfer BASIC 
programs from cassette to disc. That is simple too. The 
PROGRAM must be loaded with CLOAD and then saved 
to the disc with SAVE ‘filename’. There is only one 
annoying feature. Data cannot be CLOADed unless the 
Microdrive is disconnected from the computer. You have 
to pull out the ribbon cable each time you load a new 
program, and plug it in again to transfer data to disc. It is 
an annoying trait that we would have expected the 
designers to have overcome. 

Files must be named. The name can only be six 
characters long at most, though it can have a three letter 
extension. 

To see what files are on a disc, enter !DIR. The files 
and how many sectors they occupy will be displayed. 
That is a very handy command. If you aren't too sure of 
filenames, you can use ‘wildcards’ to indicate a group of 
files. M* will act on any file starting with M. M?X will act 
on any file with a three letter name starting with M, 
ending with X. 

'LOAD ‘filename’ loads a file from disc. You will be told 
if such a file doesn't exist. 

'IDELETE has the obvious function of deleting a named 
file. To prevent this, files can be protected with the 
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command !PROT. A file can be stripped of protection too 
or made invisible so it won't be listed. There is a slot in 
the disc sleeve that prevents a file being written to when 
covered. It is a bit like the record preventing tabs on the 
back of cassette tapes. 

!COPY is a powerful command. It allows a file to be 
copied from one location to another, with a change of 
name if necessary. It also lets you merge two or more 
files into one file. RENAME simply renames an existing 
file. 

If, at any stage, you get confused by the commands, 
'HELP is a file that gives a guide to what the various 
commands do and their correct syntax. There are also 
numerous warning errors, though these can be 
suppressed if you want. If the worst happens and the 
system crashes, remove the disc, press the reset button 
on the back of the Microdrive, and reload the DOS. 

There are two commands that enable BASIC arrays to 
be saved or loaded. They are STORE and IRECALL. You 
can load an array of any size with any number of 
dimensions. 

The other usable commands relate to file handling. 
They are OPEN, !CLOSE, !PUT and !GET. By using these 
commands, you can open two files simultaneously, one to 
read from, one to write too. You can get data from one, 
manipulate it or transfer it to anther file. 

This is like using READ and DATA statements in a 
BASIC program. Use !PUT to fill a file with new data and 
|GET to retrieve the data. While the Oric's system is not 
as sophisticated as some, it is quite sound. Better systems 
allow more than one file to be opened, and data from 
any part of that file to be accessed immediately. 


Microdrive rear 


A 3” microdisc costs around £5. 


At the moment, little software is available on disc. 
Tansoft are tranferring programs like Author and Oric 
Base to disc, demonstrating the type of programs a disc 
drive is most suitable for. 

The only restrictions on programs is that if they use 
memory above #400, and call the DOS when running, 
the program will crash. 

The Microdrive unit is a vital part of the Oric 
system. It is obviously not aimed at the beginner — the 
price sees to that. However, the Oric owner who uses his 
or her Oric for word processing, as a data base or for 
application where there is either a large quantity of data 
to be stored, or rapid access is required, will find the 
new Microdrive a blessing. 

There are few other 3” disc drives to compare it with. 
Compared to existing 54” units, it is cheaper than most, 
smaller than most and has a tougher storage medium. 
The costlier minidisc drives manage to get more data on 
a disc though. Double density 3” discs will even that 
score. 

What Oric have done is to release a product that is as 
bang up to date as possible. The advantages are fairly 
evident, the potential for further developments is there 
and the price is not unreasonable for the facilities. It 
won't be an item that sells in high numbers, but those 
who buy it won't be disappointed. 


— 


Competition 


WIN AN ATMOS UPGRADE 


If you are an Oric-1 owner 
wishing your computer was 
the new Oric Atmos, here’s 
your chance. We have three 
complete upgrades to give 
away to the winners of this 
competition. All you have to 
do is answer five multiple 
choice questions correctly 
and use your imagination to 
come up with a name for 
another Oric computer. 

The upgrade normally costs 
£60. For that your trusty 48K 
Oric-1 will receive the new 
VLI ROM, a brand new, full 
movement keyboard, a new 
black and red casing plus an 
Atmos manual and a full 
twelve months’ guarantee. In 
short, your old computer will 
become a classy new Atmos. 

That will give you many 
new facilities you don't at 
present have, and clear out all 
those annoying bugs. Most 
existing software will run too. 

The new commands relate 
mainly to file handling and 
cassette routines. There is a 
verify routine so that you can 
be sure a program has been 
CSAVEd correctly. There is a 
join facility so that two 
programs can be merged. 
You can also STORE and 


RECALL arrays. 

The questions are designed 
to test your knowledge of the 
Oric-1. You'll find some of the 
answers in this issue of Oric 
Owner, others by trying them 
out on your computer, and 
others by — well, that would 
be telling! 

As a tiebreaker, we are 
also asking you to come up 
with a name for a new Oric. 
We've had the Oric-1! and the 
Atmos. What might Onic calla 
third computer? Use your 
imagination to think up a 
name that would appeal to the 
public and perhaps relate to 


WINNERS 


Congratulations to Mr S. Jackson of Beeston, Nottingham. 
He was the winner in our December/January crossword 
competition. His prize was a brand new Oric MCP40 


printer. 


Besides getting the crossword out correctly, Mr 
Jackson also had a good slogan. He finished the sentence 


I like Oric Owner because . 


.. with the words ‘with news 


and reviews and programs galore, it chases the blues, 


it's never a bore.’ 


There were ten runners up too. They each won copies 
of Defence Force and Ultima Zone — two top selling 
arcade games. The runners up were: S. Belcher, 
Bracknell; P. T. F. Church, Waltham Abbey; J. Flute, 
Sudbury; T. Fisher, Watford; A. Gibbons, Rochester; D. 
Hoult, Coventry; P. Miller, Romford; B. Leake, 
Camberley; T. R. Perkins, Corby; P. Swan, Bristol. 

Congratulations to all these entrants, and the rest of 
you — have a go at this issue’s competition. 


the sort of image you see Onc 
trying to convey. 

All entries should be on the 
back of a postcard, with your 
name and address of course. 
Send entries to: 


Upgrade Competition, 
Oric Owner, 

Unit 1, 

Techno Park, 
Newmarket Road, 
Cambridge, CB5 8PB 


They should reach us by 
last post, 30th June, 1984. 
Winners will be notified and 


the results published in a 
future issue of Oric Owner. 


Where does the name ORIC 
come from? 


a) the word ‘oracle’ 


b) rearranged letters from the 
word ‘micro’ 


c) the name of the computer 
in Blake's Seven, AURAC 

What central processing 

Unit does the Oric use? 

a) 6502A 

b) Z80 

c) 6809 

What is the total (RAM and 

ROM) memory of the Oric-1? 

a) 37631 bytes 

b) 47870 bytes 

C) 65538 bytes 


Which of these commands is 
not in the VI.0 ROM? 

a) EDIT 

b) POS (0) 

c) STORE A,”"” 


How would the command 
PLOT 3,5,“a” for the VI.0 ROM 
need to be written to have the 
same result on the VI.I RAM? 
a) PLOT 2,5,“a" 

b) PLOT 4,5,“a" 


c) PLOT 3,6,"a" 


EIR 
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SOUND ADVICE 


The sound commands of the Oric aren’t as clear 
as they might be. Kester Cranswick explains 
how they work. 


All the critics agree that the sound facilities of the 
Oric are superb. The only problem is that their 
versatility makes learning to use the sound 
commands a daunting business. 

The Oric has three types of sound — operational, 
pre-defined and user controlled. All sound are output 
through a small loudspeaker in the base of the computer. 
A five pin DIN socket on the back of the computer will 
feed sound to an amplifier, giving HiFi sound quality that 
is quite breathtaking. Unfortunately there is no way to 
silence the on-board speaker, bar cutting the wires. 

There are three operational sounds. Pressing any input 
key gives a click, a useful check that a key has been 
pressed correctly. A different click is given when cursor 
control, RETURN or ESC keys are pressed. Finally, 
should you attempt to enter too long a line in BASIC, a 
warning bell will sound for the 76th, 77th, 78th and 79th 
characters. Any more inputs will result in a cancelled 
line. 

The key clicks can be turned off by pressing CTRL 
and F together. This has a toggle action, so a further 
simultaneous CTRL and F switches the clicks back on 
again. In a program, PRINT CHR$(6) has the same toggle 
effect. You can also POKE the key click toggle register. 
POKE#26A, 11 ensures the key click is off, POKE#26A,3 
ensures the key click is on. POKE 618,11 or 3 has the 
same effect. The long line warning bell can't be turned 
off. 

There are four pre-defined sounds — PING, ZAP, 
SHOOT and EXPLODE. Type in those commands either 
directly or as part of a BASIC program and you'll get the 
appropriate sound. PING can also be produced by 
pressing CTRL G, or using PRINT CHR§(7). To produce 
a sequence of these sounds, use a FOR... NEXT loop. 

AFOR... ZAP... NEXT loop will work without 
embellishment. The other sound commands will need a 
WAIT statement. Without this, the sequence of sounds 
will overlap and only one sound will be discerned. By 
varying the WAIT time, you can alter the effect. 
Minimum values to try are WAIT 15 for SHOOT, WAIT 20 
for PING and WAIT 75 for EXPLODE. Experiment with 
WAIT values to see their effect. 

Pre-defined sounds are certainly easy to use. However 
they can't be varied in volume or pitch, and the 
repertoire is limited. By using SOUND, MUSIC, PLAY 
and WAIT commands, the full potential of your Oric can 
be exploited. 

Oric’s sound is produced by an 8912 chip. It can 
produce sound to three ‘channels’, and there are four 
possible sound sources. Three of these produce pure 
tones that we would recognize as musical notes of some 
kind or another. The fourth produces white 
noise — buzzing electronic noise that usually sounds 
unmusical. By controlling each of these sounds and 
blending them together, a vast range of synthesised 
sounds can be produced. 

MUSIC is the easiest command to get to grips with. If 
you have any knowledge of music theory, you'll have no 
problems using it. 
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A MUSIC command takes the form MUSIC C,O,N,V 
where C,O,N and V are integers. Let's look at each in 
turn. 

The first number, C, indicates which channel the 
music is to come from. It can be either 1, 2 or 3—at this 
stage, it makes no difference which channel is chosen. 
Set any number other than 1, 2 or 3 and you'll get an 
?ILLEGAL QUANTITY ERROR message. 

The second number, O, selects the octave the music 
will be played in. The Western musical scale consists of 
twelve notes, and a set of twelve notes is an octave. The 
Oric gives a choice of eight octaves, numbered zero to 
seven. Zero is the lowest, seven the highest. 

The third number, N, determines the note that will be 
played in the octave. The range is from | to 12, with 
each number corresponding to a note on the musical 
scale. The keyboard diagram shows the relationship 
between note and number. 


The last number, V, gives the volume at which the 
music is to be heard. 1 is the softest volume, 15 is loud 
enough to really annoy the neighbours. You can set 0 too, 
but that hands volume control over to part of the PLAY 
command, of which more later. 

MUSIC then gives you a choice of 96 notes at 15 
volume settings and in any of three channels. To hear the 
range of notes, try this short program. 


5 REM *** MUSIC DEMO *** 
10 FORO=0TO7 

20 FORN=1 TO 12 

30 MUSIC 1,0,N,7 

40 WAIT 20 

50 NEXT N 

60 NEXT O 


To stop a note, make sure the key click is on and 
press any key. The WAIT command is needed to 
separate the notes into separately discernible tones. 
Omit line 40 to see the difference it makes. 

If you change to another channel, you won't get any 
noise at all. To ‘enable’ a channel other than, or in 
addition to channel one, you'll have to use the PLAY 
command. 

Still, with the MUSIC command it is relatively simple to 
play simple melodies. If you have some sheet music, you 
should be able to convert the printed notes to octave and 
note values. The length of the note is determined by the 
WAIT value, so settle on one value for a full beat and 


halve, double or whatever that WAIT value to get the 
right note length. Each note will thus have an octave, 
note and wait value. Put these three values in DATA 
statements, READ them into octave, note and wait 
variables, set a volume and RUN. 

You might also set up the keyboard to act as a musical 
keyboard. Give each key an octave and note value, scan 
the keyboard for key presses and use the input to 
achieve a MUSIC output. 

SOUND is a more versatile command, though not as 
structured as MUSIC. A SOUND command takes the 
form of sound C,P,V, where C, P and V are again integer 
values. 

C, as before, stands for Channel. However, the range 
of values has doubled. Numbers from one to six will be 
accepted. 

Numbers 1, 2 and 3 enable those channels to generate 
a sound signal, as with the MUSIC command. Again, 
without a PLAY command, only channel one will give a 
sound. 

The sound emitted is determined by the next figure, P, 
standing for Period. This can have a value of from 0 to 
4095. The manual gives the range as up to 65535, but as 
the Period store is a twelve bit store, numbers above 
4095 simply repeat the period sequence. 

The higher the period number, the lower the tone of 
the sound. This short program shows the possible range. 


10 REM *** PERIOD RANGE DEMO *** 
20 FOR P = 0 to 4095 STEP 50 

30 SOUND 1,P,7 

40 WAIT 20 

50 NEXT 


As with MUSIC, a WAIT is needed to give distinct 
sounds, and the final tone is stopped by pressing a key 
with the key click on. 

The final number in SOUND command is V, and that 
controls volume in the same way as it did with a MUSIC 
command. 

So far, SOUND is simply a less exact form of MUSIC. It 
has 4096 tones to choose from, compared to 96, but 
getting the right sound may be harder. 

What the very small difference between tones does 
mean is that you can create sounds that rise and fall in 
pitch very smoothly. Use FOR... NEXT loops to do this. 
Here's a simple example. 


10 FOR P = 1000 TO 300 STEP-2 
20 SOUND 1,P,INT(P/100)+3 

30 NEXT P 

40 EXPLODE 


The extremes of P determine the start and end 
pitches, the step value how rapidly the sound is zoomed. 
By relating the volume, V, to the P value, we get a 
changing volume too. It is a simple technique that's worth 
experimenting with. 

If you set C, Channel, to 4, 5 or 6, something different 
happens. These numbers activate the noise channel, 
mixing it with channels 1, 2 or 3 respectively. The 
functioning of the variable P is affected too. It now has a 
pitch range of 0 to 31 — higher numbers simply repeat 
this range. V works in the same manner, as usual. 

Changing the C value in line 30 of the pitch 
demonstration to 4 (giving noise on channel one) still 
gives a tone, not noise, when the program is RUN. That's 
because the noise channel hasn't been enabled, with a 
PLAY command. Add 


5 PLAY 0,1,0,0 


to the program and you will hear the effect of different 
pitch values. 

SOUND, therefore, gives a choice of 4096 tones, or 32 
pitches of noise. To put all these things together, the 
PLAY command is needed. 

A PLAY command is followed by four variables, T, N, 
E and P. T stands for Tone enable, N for Noise enable, 
and these commands work in a very similar manner. 

Tone enable can have an integer value from 0 to 7. 
Different values enable different channels, or channel 
combinations, as shown in the chart, 0 disables all 
channels, 1, 2 and 4 enable just one channel, 3, 5 and 6 
enable two channels and 7 enables all three channels. In 
practice, you'll usually only need the numbers 0, 1, 3 and 
7 for none, one, two and three channels of sound 
respectively. For NOISE enable, N values of 1, 2 and 4 
feed the noise through channels 1, 2 or 3. In practice, just 
use @ or | to turn noise off or on. 


SECTOR 7 SOFTWARE 


SOUND - Channe! enabies 
1 Cc 


Channels On 
2 


TURNS YOUR ORIC 
INTOA 
MUSICAL INSTRUMENT 


it 


AND HELPS YOU 
TO COMPOSE YOUR 
OWN MUSIC 


git 


Musical aid program from 
Sector 7 

Enabling a channel allows music, sound or noise to be 
played through it. Remember that you can have three 
music or sound tones playing, one through each channel, 
and a noise mixed up with one of the three channels. 

The simplest way to use PLAY is to set up each 
channel to play a harmonising piece of MUSIC, then 
enable all three tone channels (T = 7) and RUN the 
program. You will have a basic three part harmony 
PLAYing. So, for a C Major chord, enter these lines and 
RUN. 


10 MUSIC 1,3,1,7 
20 MUSIC 2,3,3,7 
30 MUSIC 3,3,5,7 
40 PLAY 7,0,0,0 


To add some noise, enter 35 SOUND 4,15, 10 and 40 
PLAY 7,1,0,0. When RUN, channel one will emit both 
music and noise. 

A note will sound until another note is commanded or 
the program stopped. By the use of WAIT statements, it 
isn't hard to program your Oric to play quite 
sophisticated music. 

You can use SOUND in any or all of the channels in 
place of MUSIC, with PLAY enabling the appropriate 
channels. By adding noise as well, you can generate a 
wide range of sound effects for games or utilities. 
Unfortunately there is no shortcut to getting the exact 
sound you want. Use loop structures to give different 
sounds and print out variable values at the same time. An 
additional aid might be to record the sounds you 
produce, along with their relevant variables, and build 
up a sound library. 

Now, back to PLAYing. We've only dealt with the two 
first variables so far. We have assumed that all MUSIC 
and SOUND statements have had a volume variable, V, 
of from | to 15. However, you can also set the vclume to 
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0, and that hands over control of the volume to the PLAY 
command. 

With a non-zero volume, the sound emitted is a steady 
tone or noise, with no rise or fall in volume. With the 
volume at 0, you can choose the ‘shape’ of the sound. 

The Oric allows seven sound ‘shapes’, or envelopes. 
They are illustrated here, and are numbered one to 
seven. To use a particular envelope, set the variable E to 
the appropriate number. Set V to 0 and the envelope 
mode will be 1. The envelope will affect any sound, 
noise or music tones it is controlling. 

This short program demonstrates what each envelope 
sounds like when applied to a single note. 


10 FORE=1TO?7 
20 MUSIC 1,3,1,0 
30 PLAY 1,0,E,200 
40 WAIT 100 

50 PLAY 0,0,0,0 

60 WAIT 100 

70 NEXT 

Line 50 is to stop the sound of each note before the 
next one. Delete line 50 and the sounds will run into each 
other. Line 60 gives a short break between the sounds. 

If you compare the sounds you hear with the envelope 
diagrams, they should be quite clear. Envelopes one and 
two give a single note, envelope one falling away 
(decaying) slowly, envelope two rising in volume gradu- 
ally (a slow attack) and falling away suddenly. 

Envelope three gives a rapid sequence of the first 
envelope pattern, while envelope four gives a sequence 
of rising and falling notes. Envelope six repeats envelope 
two in rapid sequence, while envelopes five and seven 
attach an envelope one or two to a steady tone. The 
envelopes thus combine three basic patterns in a variety 
of ways, controlling volume from minimum to maximum. 

There is one more variable in the PLAY command - P, 
for the Period. It can take any integral value from 0 to 
65535, and it dictates the length of the envelope. Each 
1000 gives about one second’s sound, for each ‘wave’ in 
the envelope pattern. Note that each 100 of a WAIT 
command gives a one second pause. A WAIT controls 
the length of time a note is allowed to sound before the 
next starts. 

By combining different period and WAIT times, a 
particular effect can be achieved. For the non-repeating 
envelopes (1 and 2), the period needs to be some 20 
times longer than the WAIT. This gives time for the 
single note to develop and only a short interval between 
notes. 

The repeating patterns (3, 4 and 6) need 
comparatively shorter times, to allow a number of 
repeats of the note before the next PLAY command. 
With envelope 4, remember to allow for the fact that 
attack and delay times are equal, so a halving of the 
period in comparison to envelopes 3 and 5 is needed to 
get the same number of repeats in a given time. 


BASIC SOUND COMMANDS 


MUSIC C,0,N,V 
C-Channel 1,2 or 3 
O-— Octave 0 (low) to 7 (high) 


PLAY T,N,E,P 
T- Tone enable 0 (no channels) ~ 7 (all channels) 
N- Noise enable 0 (no channels), |, 2, 4 for channels 


N-Note | (C) to 12 (B), standard scaie 1,20r3 


E- Envelope pattern | to 7 

P- Envelope Period 0 to 65535; 1000 1s approx | sec 
Enables any combination of three channels for 
SOUND or MUSIC, plus one channel for noise. Gives 
envelope control of volume. 


WAIT X 
X — duration, 0 to 65535, 100 is approx | sec 


V—- Volume | (soft) to 15 (loud), 0 for envelope control 
Total of 96 notes at 15 volumes, or envelope 
controlled in any or all of three sound channels 
SOUND C,P,V 
C- Channel 1, 2 or 3 for tones 
or 6 for noise in channels }, 2 or 3 

P — Period 0 (high) ot 4095 (low) - tones 

Pitch 0 (high) to 31 (low) — noise 
V- Volume | (soft) to 15 (loud), 0 for envelope control 
Total of 4096 tones at 15 volumes or envelope 
controlled in any or all of three channels 
Total of 32 electronic noises at 15 volumes or 
envelope controlled in any of three channels 
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Treat envelopes 5 and 7 as you would | and 2-a 
longish period to give a discernible attack or decay, with 
the length of the steady tone controlled by the WAIT 
command. 

When you have finished PLAYing, make sure you have 
PLAY 0,0,0,0 in the program to stop any sounds. It is also 
advisable to turn off the keyboard clicks, as pressing a 
key may affect the Oric's sound. 

By combining the envelope patterns with various 
sound and noise tones, you get a greater variety of 
sounds than you might with the fixed volume settings. 
Using envelopes to control MUSIC allows the Oric to 
imitate different musical instruments. In short, the Oric 
has a full synthesiser on board, if you take the trouble to 
get to know it. 


Sound can be used in a number of ways. For games 
and utilities, relatively simple sounds could be called 
from various sub-routines, assuming the pre-defined 
sounds are unsuitable. 

Using the Oric to play back music that has bee 
programmed in is another possibility. Set up each 
channel with the right envelope or volume, enter the 
octave, note and WAIT data in DATA statements, enable 
channels with a PLAY command and away you go. At 
first it may seem laborious, but get a simple routine 
established and it is then only a matter of translating 
from paper to DATA statements. 

Finally, you could turn the Oric into a full synthesiser. 
You'll have to allocate keys to different notes of MUSIC, 
or different SOUNDs, and may wish to set up a number 
of different types of sound that can be switched in at the 
press of a key. You might also use the noise feature to 
generate a rhythm, and could probably build in a means 
of storing a sequence of inputs before playing them 
back. Output all this to an amplifier and you'll have a 
super musical instrument. 

If you don't want to go to the trouble of writing such a 
program yourself, there are a number of sound aid 
programs available. Composer is by Sector 7 and costs 
£6.50, and Tomorrow's World do a Synthesiser for £7.95. 

That takes care of the BASIC sound commands. Using 
this knowledge, spending time at the keyboard and 
adopting a systematic approach to programming, you 
can unlock the enormous sound potential of your Oric. 

Of course it is possible to access the 8912 sound chip 
directly, with Machine Code. This chip has 14 registers, 
and the data fed to them determines the sound output. 
BASIC sound commands are one means of altering the 
data. Each of the pre-defined sounds also feeds a certain 
set of data, as do each of the operational sounds. Enter 
CALL#FAC7 and see what sound you get. CALL#FB@B 
gives a key click. Atmos owners should CALL#F AE] 
and #FB14- 

The ROM is stuffed full of pre-set data, and so by 
feeding data from different addresses in the ROM, you 
can access a hugh variety of repeatable sounds. Here's a 
short Machine Code routine to do that. 


#400 #A2 LDX 

#401 #XX Lo. addresss byte 
#402 #A0 LDY 

#403 #YY Hi. address byte 
#404 #20 JSR 

#405 #86 (Atmos) 

#405 #6C (Oric-1) 

#406 #FA Calls#FA6C/86 
#407 #60 RTS 


To use this routine, enter the following line 
POKE#401,XX: POKE#403, YY: CALL#400 


XX and YY are the low and high order bytes of any 
memory location you want to access. #FA6C is the 
routine used by SHOOT, PING and EXPLODE 
commands to feed data to the sound chip in the Onc-1. 
#FAS86 is the equivalent Atmos routine. 

If you have the time, this short program will run 
through all available addresses, feeding the start 
contents of and next thirteen addressses to the sound 
chip. Enter the MC routine first, with a BASIC loader. 


10 FOR Y = #00 TO #FF 

20 FOR X = #00 TO #FF 

30 PRINT “#"Y;X 

40 POKE #401,X: POKE #403, Y: CALL #400 
50 WAIT 100 

60 PLAY 0,0,0,0 

70 WAIT 100 

80 NEXT X 

90 NEXT Y 


If you hear a sound you feel would be useful, note the 
hex address and, with the Machine Code routine, POKE 
and CALL the sound when necessary. 

An alternative to this is to load the sound chip directly 
with your own data. Each of the fourteen registers has a 
certain function, and can be accessed directly. You'll 
need the same Machine Code routine as used for the last 
program. 

What you have to do is to pick an address in RAM, 
POKE it and the next thirteen addresses with the hex 
data for the sound you are trying to produce and then 
use the previous routine — 


POKE#401,XX: POKE#403, YY: CALL#400 


You could then define the ! key to call that routine and 
thus add a new sound to your programs. 

Look at the diagram of the sound registers to see what 
they are and what values they will take. 

Registers 0 to § control the pitch of each of the three 
tone channels, two registers to each channel. Registers 1, 
3 and 5 give a ‘rough’ pitch value, registers 0, 2 and 4 
‘fine tune’ it. The coarse tune register takes values from 
#00 to #0F — sixteen values in all. The fine tune registers 
take values from #00 to #FF — 256 values in all. Now 
296 X 16 gives 4096 — exactly the number of period 
values available for each channel. 

Similarly, the noise pitch register, 6, has five bits, so 
can take a range of values from #00 to #1F, or 0 to 32 in 
decimal. 

Register 7 is the tone and noise enable register. It has 
eight bits, though the two most significant bits are for two 
in/out ports, and of no concern here. 

The remaining registers relate to noise and tone in the 
three channels respectively. A bit set to one (on) enables 
noise or tone in that particular channel. So, to enable all 
three tone channels, the register should look this — 0000 
0111 Le. have a value of #07. Poking hex values from 
#00 to #83 enables the relevant channels. 


Registers 8, 9 and 10 control the amplitude of the 
signal from each channel. They are five bit registers, so 
take hex values from #00 to #1F — 32 settings in all. This 
doesn't seem to relate directly to the BASIC sound 
commands, but different values affect the volume and 
length of the tone. You'll have to experiment here. 

Registers 1] and 12 are both eight bit registers and 
control the envelope period. Each takes settings from 
#00 to #FF, the first register being a fine tune register, 
the second coarse tune. That is how envelope periods 
from 0 to 65535 are accommodated. 

The last register controls the envelope period. It has 
four bits, so takes values from 0 to 15— more than double 
the number of envelope shapes available. 


Max 
Function value|b7 b6 b5 b4 b3 b2 bl b0 
fr {| ty 


Tone Period — 1, fine 
Tone Period — 1, coarse 
Tone Period — 2, fine 
Tone Period — 2, coarse 
Tone Period — 3, fine 
Tone Period — 3, coarse 
Noise Period 

Channel Enable - 1 = On 
Amplitude — 1 
Amplitude — 2 
Amplitude — 3 

Envelope Period — fine 
Envelope Period-coarse 
Envelope Pattern 


1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
Cc 
D 


Each bit has a different function. Bit four gives a 
repeating envelope when set on 1. The third bit gives an 
initial attack (rise in tone) when on, an initial delay (fall in 
tone) when off. Bits one and two are only operative when 
bit four is on. When bit two is on, the repeating sound 
falls and rises alternatively. When bit two is off, the 
sound falls, rises immediately to a peak, falls again, and 
so on. 

Bit one gives a tone that is held when switched on, and 
cuts off at its peak when off. By picking the right 
combinations of sound, you can therefore shape you own 
envelopes. We reckon that envelopes | to 7 correspond 
to register 13 settings of 0, 4, 8, 6, 9, 12 and 13. 

To set up a sound, use a FOR. . .NEXT loop. Increment 
the counter from 0 to 13, and POKE the base address 
plus the counter value with the hex value for each 
register. Obviously this process involves a degree of hit 
and miss, and you'll need to be careful not to input 
values too large for the registers, but if you like to 
experiment, you may well produce some interesting 
sound effects. 

Here's a short program that loads the #400 routine, 
and lets you input new register value. XX and YY and 
low and high order bytes of the memory address called 
from. 


10 FOR AD=#400 TO #407 55 DATA Aa, CC, AO, YY, 
20 READ H$ 20, 86, FA, 60 (Atmos) 
30 H=VAL(H$ + “#") 60 FOR R= 0 to 13 

40 POKE#AD,H 70 INPUT “ REGISTER VAL 


50 NEXT UE (#)"; P 
55 DATA A2, XX, AO, YY, 80 POKE#YYXX+R, P 
20, 6C, FA, 60 (Oric-1) 90 NEXT R 


100 CALL#400 


This routine is not mug trapped and could easily be 
improved. If you really want to explore the sound 
facilities of the Oric, then Machine Code is your finest 
tool. But, even if you stick to BASIC, you'll surely find the 
Oric has more than enough versatility to keep any 
electronic composer happy for years 
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MORSE CODE 


1 REM Xxx MORSE *xx 


Learning Morse code is not that easy, and transmitting it 4 POKE482aa0, 2 

rapidly is even less so. Here's a short program from ; 

Jorge Saiz of Barcelona that lets the Oric translate your See? 

messages into Morse code and broadcasts the code from 1@ POKE618, 138 

its speaker, 12 PING 
At the start, you are asked for the duration of the point 14 INPUT"DURATION OF POINT €3 - 18)"3 

and line signals. In theory, the line should be three times 

as long as the point, and you can vary the duration to INPUT"DURATION OD LINE (93 - 38)"; 

give very fast or quite slow signals. If you were trying to 

learn Morse, you'd be able to speed up the signal as you INPUT” UOLUME Cl - 150"3 

got better. ; 
You are also prompted for the volume of the signal, up ; 

to a maximum of 15. RUN the program and any letter you 18 CLS 

type into the keyboard will be output as an audible 19 W$="TO STOP THE PROGRAM PUSH ?7?" 

Morse signal. The program isn't able to keep up with 20 FORX=8TO2? :POKE4¢8908+x, ASC(MID$CW$ 

very fast entries, as you must give time for each letter to %+1,1)) !NEXTX 

be translated before the next is attempted. Still, you can 30 FOR T=1T043 :READACT) :NEXTI 

get some very rapid transmissions, and probably pick up Ragen ; 

some of the potentially useful code in the process. 70 GETC$?TFC$=" “" THENPOKE 48000, 0 :STOP 
The program will run on all Oric and Atmos 73 PRINTCS ; 

computers. It is in simple BASIC, with the Morse code in 8@ IFC$=""THENSTOP 

the DATA statements at the end. The rest is simply 90 J=1 

correlating the input to the code and outputting it 180 AS=MIDS(C$,J,1) 


through the sound system. 110 IFA$=""THENGOTO72 
120 IFA$=" "THEN282 
138 A=ASCCAS) 
140 A=A-47 


MANHATTAN 160 ental 


HIRES display and random filling with colour attributes 178 BS=LEFTSCAS, 2) 


generates a display of blocks of vivid colour, overlapping 18@ FORJ=1TOLENCAS ) 
in a unique pattern every time the program is run. Lars 190 BS=NIDSCAS$, J, 1) 
Hansen of Norway thinks that the final pattern looks like 200 ITFBS="2"THENSOUND1, 75, Y:PLAY1,9;@ 
a Manhattan skyline. Whatever is it looks like, it is a very ,O:WAITE :PLAYQ,2@,2,2 
good demonstration of the colour attributes of your 219 IFB$="1"THENSOUNDL. 25,7 :PLAY1;2,2 


Gl OF BENE ,@:WAITW:PLAYG,2@,2,2 


220 IFB$=""THEN25@ 

240 NEXTJ 

260 J=J+1 

278 GOTO1A0 

288 WAITC3*W) 

238 GOTO260 

3@@ DATA 11111,21111,22111,22211,2222 
1, 22222, 12222,11222,11122,11112,12122 
310 DATA 2,2,2,2,221122,2,21,1222, 121 
2,122,2,2212,112,2222,22,2111 

315 DATA 121,2122,115,12 

32@ DATA 111,2112,1121,212,222,1,221; 
2221,211,1221,1211,1122 


3 REM *** MANHATTAN **x 
1@ HIRES 

2@ A=RNDC1)*23¢ 

3@ B=RND(C1)*139¢ 

4@ C=RNDC1)X6+16 


5@ CURSETA,B,@ 

6@ L=RNDC1)*19@ 

65 IFL<1THEN6@ 

7@ IFB+L,> 19@THENGO 
8@ FILL L,15C 

98 GOTO22 
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SPIROGRAPH 


This graphics demonstration program lets you 
experiment with settings of your own, after you have 
watched the four demonstration drawings. It works along 
the lines of an old type of pattern generator, the 
Spirograph. With the Spirograph, you put a pen in a hole 
in a toothed wheel and moved this wheel around another 
toothed wheel. The pen generated a geometrical pattern 
that could be very, very beautiful indeed. 

This program does the same, though the screen is the 
paper and the Oric is the pen. You have to input your 
own values, and we can guarantee it will be ages before 
you exhaust the possibilities available. 

To start, you are offered the choice of four 
demonstration patterns, to show the sort of effects that 
can be produced. Then it is over to you. 

You are asked to input four values. The first is the 
radius of the fixed circle. The next is the radius of the 
moving circle. The two radii won't be accepted if they 
would involve the cursor moving off screen. 

The next input is the step - the distance between each 
successive rotation of the moving circle. The final input is 
for the total number of rotations you want. The four inputs 
are displayed at the base of the screen of the HIRES 
screen display. 

The radius of the moving circle can be negative if you 
wish — opening up a whole new type of pattern. Once 
you get the hang of the sort of variable values that 
produce the best effects, you'll have plenty of fun with 
this program. 


Onic QUAKE 


S REM *XxKTRKHAMX**X 

1@ PAPER@: INK3:HIRES 
PRINT"DO YOU WISH TO CONTINUE?" 
PRINT"CYJES,; €N1O, [DIEMONSTRAT ION 


GETA$ : TFAS="N"THENTEXT :END 
IFA$="D" THEN20@ 
IFAS="7'" THEN4@ 
CLS 
19@ INPUT"RADIUS OF FIXED CIRCLE CRF) 
"SRE 
1@1 INPUT"RADIUS OF TRACING CIRCLE CR 
Te aT 
1180 IFCRF+2*RTJ> 1Q@THENZAP :PRINT'RE+2 
*RT MUST NOT EXCEED 188. REDO" :GOTO1e0a 
128 INPUT"STEP" 3ST 
121 INPUT"REVYJOLUT IONS" ;RU:RU=2xkRU:CLS 
:GOSUB38@ 
138 GOTO20 
200 FORA=1TO4 
210 READRF,RT,ST,RU 


220 RU=2xXRU 
238 GOSUB3828 


235 IFA=4THEN24@ 

237 PRINT:PRINT'"PRESS ANY KEY TO CONT 
TINUE" :GETA$ 

2408 NEXTA 

25@ RESTORE 

268 GOTO28 

270 DATA 10@,-60,9.1,3,18,45,0.1,9,80 
»~36,9.1,3,30,35,9.905,? 

30@ HIRES: INK3 

318 PRINT:PRINT'RF="5RF,"RT="GRT, "STE 


P="SST,"REUS="' ;RU72 


320 FORQ=@TOPIXRUSTEPST 

330 X=CRF+RTIXSINCQ) 2 Y=-CRF+RTIXCOSCO 
34@ CURSET120+xX, 180+Y,3 

358 2=PI72-QxXC1+CRF/RT)) 

360 X1=-RTXCOSC2Z) 2 Y1=RTXSINCZ) 

370 DRAWX1, 71,1 

380 NEXTQ 

398 PING:RETURN 
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TRAVEL 


While the best arcade games have very complex 
programs, they are based on simple principles. This 
Quickie from Alan Grosvenor of Glossop, Derbyshire, is 
a simple space shootout. 

Against a starry background, alien intruders move 
across the screen. You have to align your ship with them 
using the A and Z keys to control up and down 
movement. Pressing the space bar fires a shot that may 
destroy the alien. 

There are 38 aliens to destroy. At the end of the game, 
you are given a score and a repeat option. It is a simple 
game, but quick to enter and shows how easy it is to 
construct a passable game. 

Atmos owners will have to add one to PLOT X 
co-ordinates for this program to run successfully on their 
machines. It will run on both 16K and 48K Oric-|s. 


S REM Xxx TRAVEL *x*x 
10° POKE46416,18 
20 POKE46417,12 
38 POKE46418, 30 
4@ POKE46419,45 
32 POKE4642@, 45 
68 POKE46421, 38 


28 
88 
38 


OKE46422,18 

OKE46423,0 

EM *xx TRAVEL *xx 

CLS 

PLOTS, 1@,"PRESS ANY KEY" 
I 

W 

G 


FKEY$="""THEN14@ 
AIT10@0 

LS 

PAPER@ : INK3 
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182 
198 
200 
210 
220 
230 
240 
250 
260 
270 
280 
298 
300 
310 
328 
338 
348 
358 
368 
370 
380 
338 
400 
419 


420 
430 
:@,10,1,4,8,20,15,17,18,12,18 


440 


Onc QUE. 


PLOT1S, 35." ." sPLOTSs 135." 
PLOTIAs 145". 8 8PLOT 27 5 Ss "a" 
FORZ=1TO15 

A=C2@*RNDC1)) :B=C35*RNDC1 I) 
PLOTB;A;,"." 

NEXT2 

H=Q 

C=10 

D=1@ 

FORL=1TOS8STEP 1 

READG 

FORK=38TO1STEP-@.6 
PLOTC,D," “ 

PLOTK,G, "*" 

Y$=KEYS 

REM MOVEMENT 

IF Y$="A"THEND=D~-1 
IFY$="2"THEND=D+1 

IFY$="_ "THENGOSUB4 728 
IFK<1Q@THENPLOTK,C," " 
PLOTC,D,">" 

PLOTK;,;G," " 

NEXTK 

NEXTL 

GOTO570 

DATA 4,157;,18,1157,15,28,17,13;,15 


DATA 23,20,16,198,1157,8,17;24,18; 


14,18,18,5,7,1? 


470 
480 
490 
1212) 
518 
528 
538 
540 
558 
568 
578 
582 
538 
ZN" 
680 
619 
620 
640 


REM FIRE 

SAP 

FORX=38TOCSTEP~1 
PLOTX,0,"-" 

NEXTX 

FORU=38TOCSTEP~1 

PLOTU,D," " 

NEXTU 
IFD=GTHENK=@ :H=H+1 *EXPLODE 
RETURN 

CLS 

PRINT" YOUR SCORE IS "3H 
PRINT'DO YOU! WISH TO PLAY AGAIN Y 


INPUTQ$ 

IFQ$="7" THENRESTORE :GOTOI1@ 
TFQ$="N"THEN64O 

END 


—————*" 


FACTORIAL 


The factorial of a number is the product of every number 
from one to that number multiplied together. The sign for 
a factorial operation is !. So, 6! is 1*2*3*4*5*6, or 720. You 
can see that calculations may well be lengthy. 

This short program from Martyn J. Hall works out 
factorials for you. You enter the number and its factorial 
comes up almost immediately. With most numbers, you 
will get an exponential answer, such as 2.6526286E+ 32, 
which is 2.6525286 multiplied by 10 to the power of 32. 
This program will accept whole numbers from one to 32, 
and there's a repeat option at the end. It runs on all Oric 
computers. 


5 REM Xxx FACTORIAL Xxx 
18 
20 
30 
40 


CLS :PAPER@:INK1 

INPUT“PLEASE ENTER THE NUMBER" 5N 
IFN<1ORN> 320RN <> INTOCN) THEN2Z@ 
:D=1 

AT 

1 
LO>N 
TN’? IS 
T?PRINT 
198 PRINT"DO YOU WANT ANOTHER GO CY/N 
es 

ttQ@ REPEAT :GETAS SUNTILAS="F"ORAS="N" 
120 IFA$="Y"THENCLS :GOTO20 

13@ END 


met) 


MK 


Oric QUOKEE. 


LIGHTNING 


Watch bolts of lightning destroy a building when you 
RUN this listing. The HIRES display is used. A randomly 
generated bolt of lightning is generated, accompanied 
by an appropriate sound. If the bolt hits a section of a 
small building, part of it is destroyed and an explosion 
sounded. It is a short, simple listing but the idea could 
well be incorporated into more sophisticated programs. 
The program comes from Lars Hansen of Norway. 


S REM **x LIGHTNING Xx* 


18 
6,1: 
20 
8,1 
38 
48 
50 
68 
7 
25 
82 
85 
38 


CRANES 
BREEDING 


Here's a Quickie to annoy the neighbours! It is only six 
lines long, but uses all the sound channels to generate a 
noise that has to be heard to be believed. Lars Hansen of 
Norway believes the sound to be that of Cranes — 
breeding. You might have another description for it. 


193 REM ***k CRANES BREEDING xxx 
1@ SOUND1,65535”CRNDC1)*56+580),0 
2@ SOUND2,65535”7CRNDC11X58+508), 8 
SOUND3, 655357CRNDC13*58+580), 2 
PLAY?,@,5,1@ 

GOTO1@ 


38 
40 
5@ 


HIRES :CURSET115,196,1:CURSET12@,19 
CURSET125, 196, 1 
CURSET119@,199,1:DRAW@,-S, 1] -DRAW22, 


*DRAWG,5, | 


A=18+RNDC1)*229 

CURSETA; 1,1 

C=18+RNDC13*229 

B=C-A 

DRAWB, 198, 1:WAIT2@ 

CURSETA, 1,8:DRAWB, 198.8 :SHOOT 
IFC>11@ANDC <1 38THEN3S@ 

GOTO100 

EXPLODE 


188 WAITRNDC11*100+12 
118 GOTO328 
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BATTERY POWER 


————— 


1AMP O06 AMPS 


BATTERY 


CHARGER 


ae 
ee 
a? 


BATTERY 


+ 


DIAGRAM 1 


There haven't been any 
power strikes for some time 
now, but there is always the 
chance of a local power 
failure, Oric owners who have 
just embarked on a very 
lengthy scientific calculation, 
or a long program of any sort, 
will want to be safeguarded 
from loosing all when the 
power fails. 

Jurgen Thiele of West 
Germany has sent us plans for 
a device that gives a battery 
backup to the Oric's power 
supply. Diagram | shows the 
idea. A 12V car battery is 
used, Normally it is trickle 
charged from the mains, but 
should the power fail, it will 
have enough power to run 
your Oric for about two days, 
assuming a 45 Amp/hour 
battery. 

The battery charger is a 
standard charger. It is the 
interface unit that needs 


constructing. It is shown in 
Diagram 2. 

Ris an 8.2 Ohm 10 Watt 
resistor. It gives a voltage 
drop of around 5V to protect 
the Oric's ICI from 
overheating. D is a 15V 10 
Watt Zener diode. It will 
trigger the one Amp fuse if an 
input voltage of more than 
15V is detected at the power 
input terminal. C is a ceramic 
10 nF capacitor. The whole 
assembly is housed in a metal 
casing, with the resistor R in 
thermal contact so that there 
is no build up of excessive 
heat. 

This device could also be 
used if you were to take your 
Oric out in the field, away 
from mains power supplies. 
With a battery powered 
cassette recorder and a 
battery powered miniature 
TV, you have a very portable 
package. 


DIAGRAM 2 


RANDOM SEED 


Random numbers on the Oric 
may seem random, but that's 
not really true. They actually 
follow a sequence, and start at 
the same point whenever the 
computer is switched on. 

Lars Hansen of Norway has 
a short little routine he uses to 
make sure the ‘seed’ random 
number is different. The start 
point will depend upon when 
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you press a button, so is 
unlikely ever to be the same. 
Insert lines 10 to 30 whenever 
you need a truly random 
number. 


10 PRINT “PUSH ANY 
BUTTON” 

20 REPEAT: 
A=RND(1):UNTIL KEY$<>" 
30 A=@:CLS 


FUNCTION KEY 


The Oric Atmos has a new 
key, next to the night shift and 
marked FUNCT. That's short 
for Function. However, there's 
no mention of the purpose of 
this key in the Atmos manual. 

Geoff Philips has come up 
with a short routine that uses 
the FUNCT key. Within a 
BASIC program, the key is 
read when its memory 
location, #209, becomes 
equal to 165. It can thus be 
used as another SHIFT or 
CONTROL key, being 
pressed in conjunction with 
another key to initiate a 
certain action. 

Geoffs demonstration of the 
FUNCT key in use prints out 
the number of the numerical 
key pressed simultaneously 
with FUNCT. Instead of 
printing the number, any 
action could be performed. 
Line 30 is the important line. 


Wits &, WS—— 


5 GOSUB 10: PRINT N: 
GOTO 5 
10 REM *** WAIT FOR 
FNCT 1-9 TO BE PRESSED 
20 REM *** NUMBER 
RETURNED IS 'N' 

30 REPEAT: N=VAL(KEY): 
UNTIL N>0 AND 
PEEK(#209)= 165 

40 RETURN 


NEW THE OLD 


We've all NEWed a long 
listing and then realized it 
wasn't copied to tape, or was 
need back in a hurry. 
Mr C. R. Burnham of Oxford 
has a method of undoing a 
NEW command. 

Firstly, write down the first 
line of the program, 1.e. 


10 REM THIS ISA 
PROGRAM 


Then count the number of 
characters in the line, 
including spaces. Exclude the 
line number and space after 
it, but count a space after the 
last figure, and count only one 
for each BASIC command. 
For the above, REM(=1), 5 
blanks and 14 characters 
make a total of 20. 

Add six to that number. 
One is for the end of line 
signal, stored as CHR$(0) in 
the memory. Two is for the 
length of the address at #1281 
that points to the next line of 
BASIC. Another two is for the 
two byte address at #1283 
that contains the line number 
of the first BASIC line, and 
another one is for the start of 


the next line. That brings the 
total to 26. 

Now, enter 
DOKE, #1281, 1281426 
RETURN and LIST. You'll 
have your old program back. 

The tip works because the 
command NEW simply sets 
the address at #1281 to 0 
without actually deleting the 
line of the program. Restore 
that first address and you 
restore the program. Try it—1t 
works. 


CHARACTER 
RESTORE 


A tip for everyone who 
modifies character sets is to 
CALL F89B. This restores the 
standard character set, but 
none of the other start-up 
conditions. 


tht & WE. 


COMPOSITE VIDEO 


The lead to feed a black and 
white monitor from the Oric's 
RGB socket (Oric Owner, 
Dec/Jan) generated a bundle 
of letters, all with suggested 
improvements. This, from Mr 
R. W. Vanlint of Enfield, was 


the best. 

It gives a composite video 
signal of about one volt DAP, 
with a 3V synchronising 
signal. If small resistors are 
used, the whole shebang 


could be fitted in a DIN plug. 


75 OHM CO-AXIAL CABLE J. 


ia MONITOR 


STRING SEARCH 


When debugging a program, 
wouldn't it be useful to be 
able to speedily find every 
occurrence of a certain 
string? This helpful program 
for C.R. Burnham of Oxford 
does just that. 


4230 CLS:INK0:PAPER6: EOF =4230:REM START OF THIS 
PROGRAM 

4240 PRINT: PRINT: PRINT: CHR$(4) 

4250 PRINT" " CHR$(27)"A”CHR$(27)"JSCANNING ROUTINE 
FOR BASIC CODE" 

4260 PRINT:PRINT: PRINT CHR$(4) 

4300 INPUT“ENTER STING TO SEARCH FOR ";S$ 

4310 PRINT: PRINT 

4320 PRINT“ THE FOLLOWING LINES CONTAIN "S$ 

4330 PRT=1281:REM START OF BASIC “CHAIN" 

4340 NXT=DEEK(PTR):REM NEXT BASIC LINE ADDRESS 

4350 NO=DEEK(PTR+2):REM LINE NO. TO BE SCANNED 

4360 PTR=PTR+4:REM SKIP OVER ADDR. OF NEXT LINE 
AND CURRENT LINE NO. 

4370 LINE $="".REM SET TO NULL 

4380 REPEAT:REM EXTRACT BASIC STATEMENT 

4390 LINE$=LINE$+ CHR$(PEEK(PTR)) 

4400 PTR=PTR+1 

4410 UNTIL PEEK(PTR)=0 

4420 REM SCAN LINE FOR S$ AND PRINT THE LINE NO. IF 
FOUND 

4430 FOR A=1 TO LEN (LINE$)-LEN(S$)+ 1 

4440 IF MID$(LINE$,A, LEN(S$))=S$ THEN PRINT NO,: GOTO 
4460 

4450 NEXT A 

4460 IF DEEK (NXT+2) <> EOF THEN PTR=NXT:GOTO 4340 

4470 PRINT:PRINT“SCAN COMPLETED, ENTER ‘Y' TO 
RESCAN"; 

4480 GET A$:IF A$="Y' THEN 4230. 


S$ can be any string, 
alphabetic or numeric, with 
the exception of BASIC 
commands, as these are only 
tokens and not stored in 
memory as such. 

The listing is pretty self 
explanatory. Lines 4430 to 
4410 extract one line of BASIC 
at a time. Lines 4420 to 4450 
scan the line and if a match to 
S$ if found, print out the line 
number. Line 4460 checks 
that the next line number is 
not the start of this subroutine 
Note that the variable EOP 
should be set to correspond 


to the first line of this 
subroutine. 

To shorten the routine, lines 
4230 to 4320 and 4470 to 4480 
could be omitted, along with 
all the REMs. Rewrite 4320 as 
4320 EOF=4320: S$="XYZ" 
where XYZ is the string you 
are searching for. To run the 
routine, simply enter RUN 
4320. 

A further modification could 
be to alter the listing so that a 
string R$ takes the place of 
S$. Inserting these lines will 
achieve that. 


4305 INPUT “ENTER REPLACEMENT STRING", R$ 
4307 IF LEN (S$) <> LEN (R$) THEN PRINT "MUST BE SAME 


LENGTH": GOTO 4305 


4365 P=PTR : REM SAVE ADDRESS OF LINE 
4440 IF MID$ (LINE$, A, LEN(S$))<> S$ THEN 4450 
4445 LINE$=LEFT$ (LINE$,A-1) + R$ + RIGHTS 
(LINE$, LEN(LINE$) - (A+ 1)): REM INSERT NEW STRING 


4454 X=] 


4455 FOR A=P TO P+LEN (LINE$): REM REWRITE LINE TO 


RAM 


4456 POKE P,ASC(MID§(LINE$,X, 1)):X=X+1 


4457 NEXT A: 


These two little routines would make welcome additions to 


any toolbox. 


MC CLOAD 


Paul Smith of Tadley, 
Hampshire, has found a way 
around the problem of 
loading Machine Code and 
BASIC programs together. 
The problem arises when 
you CLOAD some Machine 
Code on top of a BASIC 
program, and then enter 
another line of BASIC. You 
get an OUT OF MEMORY 
error signal. 
CLOADing corrupts the End 
of BASIC pointer at 
DEEK(#9C). The solution to 
the problem is to write down 
the contents of #9C before 
Machine Code is loaded. 
Then restore the contents 
with DOKE#9C, xx after the 
Machine Code is loaded. 
Should you forget to note 
the contents of #9C, 
DEEK(#501). DEEK the result 
of DEEK(#501) and continue 
this process until you get zero 
as a result. Then DOKE #9C 
with the last DEEK,+2. For 


instance, if DEEK(#5FF)=0 
then DOKE#9C, #601. 
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TEST DRIVE 
A DISC DRIVE 


pe . 


awe, 


rT 


’ 


Why an Oric Micro Disc rather than a normal audio cassette? 


It’s simple @ Itstores much more information 
@ You can access data faster 
@ Its 3” format is very reliable 
@ |t carries as much information as more costly 5%” 
floppy disc 
@ They are convenient and easy to store 
@ It’s protected in a discette envelope 
@ It’s easily operated 
The Oric Micro Disc Drive is not a high cost cosmetic but a real hard working 
peripheral. It will radically extend the performance of your Oric Computer and as 


more and more software becomes available there couldn't be a better time to 
‘test drive a disc drive’. 


Tansorr 
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WE WON! 


Last summer we read an 
advertisement for the Monte 
Carlo Rally game, by Express 
Software. It sounded good, so 
we sent off seven pounds and 
an entry to their competition. 

The competition asked for a 
program to PRINT all prime 
numbers under 200 without 
using DATA statements. We 
sent in a simple solution, as 
every winner was promised a 
‘super prize’. 

The game arrived. We 
played it once, the children 
played it once, then we 
chucked it —- need I say more! 
Several weeks went by and 
we had a letter from Express. 
Alas, it wasn't a super 
prize - it was a letter from a 
man asking us (absolute 
beginners!) if we wanted to 
write software for them, and 
would we send a sample of 
our work. 

I wrote back, asking where 
our prize was. Then, several 
months later and with all this 
forgotten, the postman bought 
our super prize — the Monte 
Carlo Rally game! 

Does anybody out there 
want it? 


Mrs I. S. Boyd, Stockport 


LARGER 
PRINT 


May I make a plea on behalf 
of those of us whose faculties 
have become less efficient 
with time, and ask you to print 
programs more clearly? 

The listings in Oric Owner 
December/January either had 
large blank areas at the top 
and bottom of each column, or 
wide margins, or both. The 
size of print could have been 
increased without requiring 
additional pages, and larger 
print would have made them 
easier to read. I hope you can 
do something about this. 


Alan White, Baldock 


All we can say Is “Is it better 
in this issue?” We'd like to 
think it is. 


QUESTIONS 


Some questions for you... 
Early last year, an extended 
BASIC for the Oric was talked 
about. What happened to it? 

Secondly, could you be 
more critical in your reviews? 
You give little enough 
information on new products, 
and prices are rarely 
mentioned. 

Thirdly, can you doa 
review of speech 
synthesisers? I believe 
William Stuart Systems do one 
for the Oric, as well as MCP. 

Fourthly, your ads for Oric 
Owner show a boy with an 
Oric badge. Paul Kaufman is 
also pictured, wearing an 
Oric sweater. How about 
stickers, badges, T-shirts and 
so on for proud Oric Owners? 


Karl Williams, Swansea 


Some answers... 

The new Oric Basic (VID) is 
found in the Oric Atmos, and 
it is possible to upgrade the 
Oric-1, 

We hope to be bringing 
more, better product news 
and reviews, However, the 
long lead times of Oric Owner 
sometimes mean full details 
are not available when a story 
Is written. 

We will be looking at 
speech synthesisers in due 
course — when we find out 
what's available. 

Finally, we are 
investigating things like 
badges. For the moment, One 
Percent Screens of Unit 12, 
Star Lane Estate, Great 
Wakering, Essex, print an 
Oric-1 T-shirt costing £3.25, 
and a sweatshirt at £5.75. Try 
them for size. 


STAR 
RATINGS 


How about adopting a star 
ratings system for your 
software reviews? You seem 
to lack software reviewers 
and your reviews leave much 
to be desired. 


a 


a 


“Dear Ore Miner 


Will Oric Owner go 
monthly? I certainly hope it 
will. Also, could you print 
your programs in larger type? 
My eye's hurt! 

How will the introduction of 
the Atmos affect software? 
Will there be two versions of 
the one program or what? 
Finally, could you provide a 
listing of what software is 
available? 


Mr M. B. Smith, Thame 


We hope the reviews in this 
issue of Oric Owner are more 
to your liking, and we now 
have a small team of 
reviewers. As for monthly 
issues — It won't be long now. 
And, we hope the new look 
listings are an improvement. 
We also have a software 
listing, and there's plenty to 
list. 

BASIC programs for the 
Oric-1 should work with the 
Atmos and vice versa. 
Machine Code programs may 
not be compatible. However, 
most software companies 
have details of the new ROM, 
and Atmos software is already 
becoming more widely 
available. 


RING 
BINDING 


Could I make a plea to book 
publishers through the pages 
of Oric Owner? 

I have bought a number of 
books containing program 
listings for my Oric. While the 
listings are often very good, it 
is a tedious business typing 
them in. It is made more 
tedious by the fact that the 
books are bound in such a 
way that they never open out 
flat, and stay flat. 

I would much appreciate it 
if books of programs could be 
ring bound. They could then 
be opened out flat and I'm 
sure that would make them 
far easier to work with. It 
might even be cheaper to 
produce than normal binding. 


L. Miller, Stroud 


CONVERSION 


Iam a little disturbed to read 
that there may be problems 
loading programs from the 
Oric-1 on to an Atmos. I have 
quite a few home made 
programs, none in Machine 
Code though, and | don't want 
to have to retype them all 
again if they won't load into 
my Atmos. 

J. G. Recknell, Sidmouth 


Some BASIC programs may 
load quite happily. However, 
the welcome tape supplied 
with the Atmos includes a 
short ‘header’ program, that 
when RUN will enable 
virtually any BASIC program 
to be loaded to an Atmos 


SAINT ORIC? 


My job is in the Chester 
Cathedral Shop, and I've 
been asked many odd 
questions there. We are often 
asked who is the patron saint 
of such and such. 

It occurs to me that there 1s 
no patron saint of computer 
users, to whom they can pray 
when utterly baffled or 
frustrated. How about St. 
Clare, the 13th century 
Abbess and founder of the 
Poor Clares order? 


T. E. Knapp, Chester 


STRANGE 
SYMBOL 


I have seen, in both Oric 
Owner and other magazines, 
the symbol '~', meaning 
cycles per second. I don't 
know how to obtain this 
character with the Oric-1. 


T,. P. Brodrick, Cumbria 


That symbol is what we call 
a squiggle, and we know of 
no way to produce it 
intentionally. To prevent it, 
make sure the keyboard 
interrupts are turned off with 
call #E6CA. 
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ORIC SPEAK 


You might show signs of anger at this point of reference 


The cartoon and clue indicate a BASIC command for the Oric computers. Hold the page up to 


a mirror to see the answer. 


TaAa¢nvD 


WINDMILL SOFTWARE 

GRAFFIX Ris POST BOX 1563 
by ~~ | HERZOG-FRANZ-STR. 12 

3170 GIFHORN 


UINN | WEST GERMANY 


Anthony 


£7.95 inc P&P 


Copyright: Windmill Software 


All rights reserved. 


English — Deutsch 


e Full featured HIRES, multi-coloured design aid 


® Suitable for 48K Oric-1 and Atmos computers 


e English and German languages 


® Keyboard overlay included 
e Picture save and load facility 


e@ 17 commands available 
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DISASTER 
AREA 


Doggy Bone (Oric Owner, 
Feb/March) had a number of 
lines that may not have been 
clearly printed in some 
issues. Here they are... 


1208 DATA 00040A1D170F0404 
1206 DATA 0000020304 180800 


2040 PLOT 2,6,"H":PLOT 2,7,"H’: 
PLOT 20,6,"H":PLOT 20,7,“H” 


2045 FORI=1TO11;PLOT 
12+1,6,"I':; PLOT 
12+1,7,"I':, PLOT 20+ 1,6,"I 


HOBBIT 
COMPETITION 


Due to production difficulties, 
the closing date of the 
competition in the April/May 
issue was unreasonable. We 
will accept entries until June 
30th, 1984. 

Prizes are 50 copies of The 
Hobbit and to stand a chance 
of winning, you must find 
Hobbit-related words ina 
wordsquare, Back issues are 
available at a cost of £1.20. 


Notice of Renewal 


Before you throw away the envelope this issue of Oric 
Owner came in, look at the address label. If there is an R 
next to your name, it means your subscription should be 
renewed, and this is the last issue you'll get on your 
current subscription. 

Fortunately, a new subscription won't cost as much as 
the old. We've been able to cut costs, so the next six 
issues will cost just £7.50, instead of £10.00. European 
subscriptions are £10.98 for six issues. Contact us for 
overseas rates: You'll find a form at the back of this issue. 
Alternatively, if you don't want to cut up the issue, drop 
us a line with a cheque made out to Tansoft Ltd. We look 
forward to having you with us for the next six issues. 


ORIC OWNER SUBSCRIPTION FORM 


Please send me the next 6 issues 
I enclose a Cheque FOF... (cheques payable to Tansoft Ltd) 


| eon eae etl cle ewes cdeein ketal POSECOR Oia. scstsersserasesecsnzoosivs 


| Back issues are available for £1.20 each. If you missed your first 

[ree issue contact your dealer or Oric Products International who will 

| supply you with one. 

e- ET 

| & eS FF Tansoft Ltd, Units 1&2 
ons Techno Park Newmarket Road, Cambridge CB5 8PB 


ZORGONS REVENGE 


The second in the Xenon trilogy, written by 
the same author as Xenon-1, and con- 
tinuing the high standard of excellence. 
Zorgons Revenge is well on its way to 
repeating the success of Xenon-1, and is 
again receiving rave reviews. 


“This game certainly is the best arcade 
style effort | have yet seen on the ORIC. The 
graphics are superb...the author deserves 
praise...and | was impressed with thé ease 
with which the game loaded, even though 
the cassettes contained ‘fast’ versions 
only”. - PERSONAL COMPUTER WORLD 
GAMES SPECIAL, 1984 

“The animation is smooth and detailed... 
this will be a solid gold hit’. - COMPUTER - 
CHOICE, Feb. 1984 

“Some'of the best grapfics available-for the 
ORIC...recommended”. — - CG HiIT,. 
PERSONAL COMPUTER GAMES, Feb. 1984 
“Quite the best "ve: seen for the 
ORIC...superb gra 

10th Dec. 1983 


Following their defeat at the hands of 


XENON-1 LORE ‘ 


A true legend in computer software. This game: 
topped the ORIC software charts in ‘most high: 

street stores during .1983, and became the 

overall best selling computer game in France for 

the same period, gaining rave . reviews © 
throughout the press. . 

“Uses the ORICS tremendous capabilities. to 

excellent advantage,..truly mind boggling...the 

graphics are absolutely superb, very smooth - 
indeed...1 can thoroughly recommend | this 


program”. 

- WHAT MICRO, Sept. 1983 
“This is the best arcade game’ yet. available for 
the ORIC. The graphics and animation are . 


superb”. ‘ ‘ : : 
-ORIC OWNER; Sept 1983 . 

As fleet’ commander in the Xenon. space 
academy, you must protect your home planet 
Radon from the Aards, Paratrons and the Zorgon 
® star! This 100% machine. code. game 

‘ “4 the smoothest, meanest arcade action 


‘and ORIC_ ATMOS. €8.50inc. 


fleet the Zorgons have captured the Xenon princess Roz, and have’ 


imprisoned her.in their castle, You are commissioned to rescue her by scouring the four corners of the Zorgon 
Empire to capture the magic stones. These stones, guarded by the Quadnogs, Terrapods and many other strange 
beasts, are needed to bridge the bottomless chasm surrounding the castle, enabling you to achieve your goal. 

Each one of the many varied stages in this scintillating 100% machine sode mission will test your arcade ability as 


never before. ‘ 
For the 48K ORIC-1 and ORIC ATMOS €8.50 inc. 


‘OTHER TITLES IN THE IJK SOFTWARE ORIC RANGE... 


INVADERS 
Machine code 
ade game for 
16K 8 48K ORIC-1 
ORIC ATMOS 
£7.50 inc. 


FANTASY QUEST 
Intriguing 
adventure for 
48K ORIC-1 
and ORIC ATMOS 
£6.50 inc. 


REVERSE 
Superb version of 
the board game 
for 48K ORIC-1 
and ORIC ATMOS 
£6.50 inc. 


jax Candy Floss 


3D MAZE & 
BREAKOUT 
Arcade action for 
48K ORIC-1 and 
ORIC ATMOS 
£7.50 inc. 


CANDYFLOSS & 
HANGMAN 
Two top 
educational 
programs for 
48K ORIC-1 and 
ORIC ATMOS 
£7.50 inc. 


you must guide the muncher around | 
the dots to gain points. Eating the 
you to chase and eat the ghosts, 
This all-action machin 
muncher,- power pills, ° 

fame, smooth action, etc., 

For the 48K ORIC-1 ha ts) 


pills 4 abies 
bonus points. | 


IJK Software Ltd present... 
FOR THE 48K ORIC-1 


GREEN 

CROSS TOAD 

Help the toad 

across the road 

avoiding the 

— traffic, then. 

help him cross.tne river on the legs and turtles, to reach 
the safety of the lily pads. This machine code version of 
the popular arcade game features lanes of traffic, logs, 


diving turtles; jumping toad, ‘snakes, flies, tunes, hall of 
fame, etc., etc. 


For the 48K ORIC-4 2 and ORIC ATMOS. £7.56 ine. 


atures ghosts, / 
tunflel, fruits, hall of © 


have you cornered, To survive you must destroy the 
fighters and evade their approaching plasma bolts and 
missiles, Featurés superb graphics, smooth action, hall 
of fame, etc., ete. 

| £7.50 inc. 


FRIGATE 
COMMANDER. 


In this exciting 

simulation of 

modern war- 

fare, you are in. : 

command of a frigate hunting the waters for enemy sub- 
marines and war ships. This excellent “trek” type game 
contains a highly colourful &nd realistic display, and 
features radar, sonar, weapons, damage report, map of 
area, etc., etc. 

For the 48K ORIC-1 and oric ATMOS C6. aol inc. 


Our software has. ecn Officially approved by Oric Products International | itd., -y andis available from brenches of 
W.H: Smiths, Laskys, Comet, Zappo, John Menzies, The Spectrum Chain, many other leading department 
stores, hundreds of independent dealers nationwide, and in over 30 countries across the world. You can also 
.order direct from us- afl adverti ised software is in stock now and will be despatched within 48 hrs. of receipt of-order. 


ALL PRICES FULLY INCLUSIVE OF VAT and P&P ~NO MORE TO PAY! Pel 


Unit.3c, Moorfields, 1 / 
- Moor Park Avenue, Bispham, | Lie 


Blackpool, Lancs. FY2 OJY ° 
Telephone (0253) 55282 Telex: 67232 IJKSOFG 


WARNING: All softwere qolg subject to IJK Sottwards standard ebhilitons of sale ahd terms of trade, copies available on request 


